handle REALSXP->STRSXP NaN case explicitly

kevinushey · kevinushey · commit 80057712786a · 2013-12-19T13:16:53.000-08:00
diff --git a/inst/include/Rcpp/internal/r_coerce.h b/inst/include/Rcpp/internal/r_coerce.h
@@ -268,8 +268,10 @@ inline SEXP r_coerce<CPLXSXP,STRSXP>(Rcomplex from) {
 	return Rcpp::traits::is_na<CPLXSXP>(from) ? NA_STRING : Rf_mkChar( coerce_to_string<CPLXSXP>( from ) ) ;
 }
 template <> 
-inline SEXP r_coerce<REALSXP,STRSXP>(double from){ 
-	return Rcpp::traits::is_na<REALSXP>(from) ? NA_STRING :Rf_mkChar( coerce_to_string<REALSXP>( from ) ) ;
+inline SEXP r_coerce<REALSXP,STRSXP>(double from){
+  // handle NaN explicitly
+  if (R_IsNaN(from)) return Rf_mkChar("NaN");
+	else return Rcpp::traits::is_na<REALSXP>(from) ? NA_STRING :Rf_mkChar( coerce_to_string<REALSXP>( from ) ) ;
 }
 template <> 
 inline SEXP r_coerce<INTSXP ,STRSXP>(int from){ 

Original file line number	Diff line number	Diff line change
`@@ -268,8 +268,10 @@ inline SEXP r_coerce<CPLXSXP,STRSXP>(Rcomplex from) {`
`268`	`268`	`return Rcpp::traits::is_na<CPLXSXP>(from) ? NA_STRING : Rf_mkChar( coerce_to_string<CPLXSXP>( from ) ) ;`
`269`	`269`	`}`
`270`	`270`	`template <>`
`271`		`-inline SEXP r_coerce<REALSXP,STRSXP>(double from){`
`272`		`- return Rcpp::traits::is_na<REALSXP>(from) ? NA_STRING :Rf_mkChar( coerce_to_string<REALSXP>( from ) ) ;`
	`271`	`+inline SEXP r_coerce<REALSXP,STRSXP>(double from){`
	`272`	`+ // handle NaN explicitly`
	`273`	`+ if (R_IsNaN(from)) return Rf_mkChar("NaN");`
	`274`	`+ else return Rcpp::traits::is_na<REALSXP>(from) ? NA_STRING :Rf_mkChar( coerce_to_string<REALSXP>( from ) ) ;`
`273`	`275`	`}`
`274`	`276`	`template <>`
`275`	`277`	`inline SEXP r_coerce<INTSXP ,STRSXP>(int from){`