From fd2420cdcc37941ba5f599f016ceab2b685b7d23 Mon Sep 17 00:00:00 2001
From: William S Fulton <wsf@fultondesigns.co.uk>
Date: Fri, 14 Oct 2022 22:48:54 +0100
Subject: [PATCH] Remove STRING_VALUE to keep supporting older versions of R

STRING_VALUE does not work with R_NO_REMAP
in older versions (it broke 3.0.2)
---
 Lib/r/r.swg | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/Lib/r/r.swg b/Lib/r/r.swg
index eeabcf4ba..6907375d6 100644
--- a/Lib/r/r.swg
+++ b/Lib/r/r.swg
@@ -28,7 +28,7 @@ SWIGEXPORT void SWIG_init(void) {
 
 %runtime %{
 void SWIG_R_Raise(SEXP obj, const char *msg) {
-  Rf_error(Rf_isString(obj) ? STRING_VALUE(obj) : msg);
+  Rf_error(Rf_isString(obj) ? CHAR(Rf_asChar(obj)) : msg);
 }
 %}