Merge pull request #344 from fplaza/char-converter-patch

eddelbuettel · eddelbuettel · commit a74ed386ed4c · 2015-08-15T13:07:10.000-05:00
Fix conversion from char to string (closes #343)
diff --git a/inst/include/Rcpp/vector/converter.h b/inst/include/Rcpp/vector/converter.h
@@ -60,7 +60,7 @@ namespace internal {
 
 		static SEXP get(const char& input){
 		    RCPP_DEBUG( "string_element_converter::get< char >()" )
-			return Rf_mkChar( &input ) ;
+			return Rf_mkCharLen( &input, 1 ) ;
 		}
 
 		// assuming a CHARSXP

Original file line number	Diff line number	Diff line change
`@@ -60,7 +60,7 @@ namespace internal {`
`60`	`60`
`61`	`61`	`static SEXP get(const char& input){`
`62`	`62`	`RCPP_DEBUG( "string_element_converter::get< char >()" )`
`63`		`- return Rf_mkChar( &input ) ;`
	`63`	`+ return Rf_mkCharLen( &input, 1 ) ;`
`64`	`64`	`}`
`65`	`65`
`66`	`66`	`// assuming a CHARSXP`