replace STRING_ELT with SET_STRING_ELT (closes #377)

Author: eddelbuettel

ChangeLog

@@ -1,3 +1,7 @@
+2015-09-28  Dirk Eddelbuettel  <[email protected]>
+
+        * src/barrier.cpp: Use SET_STRING_ELT() on LHS (with thanks to Luke)
+
 2015-09-21  Dirk Eddelbuettel  <[email protected]>
 
         * inst/include/Rcpp/String.h: Before assigning ensure we received

DESCRIPTION

@@ -1,7 +1,7 @@
 Package: Rcpp
 Title: Seamless R and C++ Integration
-Version: 0.12.1.1
-Date: 2015-09-21
+Version: 0.12.1.2
+Date: 2015-09-28
 Author: Dirk Eddelbuettel, Romain Francois, JJ Allaire, Kevin Ushey, 
  Qiang Kou, Douglas Bates and John Chambers
 Maintainer: Dirk Eddelbuettel <[email protected]>

inst/NEWS.Rd

@@ -7,7 +7,9 @@
     \item Changes in Rcpp API:
     \itemize{
       \item Before creating a single String object from a \code{SEXP}, ensure
-      that it is from a vector of length one (issue #375)
+      that it is from a vector of length one (issue #375).
+      \item No longer use \code{STRING_ELT} as left-hand side, thanks to a
+      heads-up by Luke Tierney (issue #377).
     }
   }
 }

src/barrier.cpp

@@ -40,12 +40,12 @@ const char* char_get_string_elt(SEXP x, int i) {
 
 // [[Rcpp::register]]
 void set_string_elt(SEXP x, int i, SEXP value) {
-    STRING_ELT(x, i) = value;
+    SET_STRING_ELT(x, i, value);
 }
 
 // [[Rcpp::register]]
 void char_set_string_elt(SEXP x, int i, const char* value) {
-    STRING_ELT(x, i) = Rf_mkChar(value);
+    SET_STRING_ELT(x, i, Rf_mkChar(value));
 }
 
 // [[Rcpp::register]]