pedantic fixes for REALSXP -> STRSXP conversion (matches R)

kevinushey · kevinushey · commit 1e812eaece73 · 2013-12-19T13:49:57.000-08:00
diff --git a/inst/include/Rcpp/internal/r_coerce.h b/inst/include/Rcpp/internal/r_coerce.h
@@ -271,6 +271,8 @@ template <>
 inline SEXP r_coerce<REALSXP,STRSXP>(double from){
   // handle NaN explicitly
   if (R_IsNaN(from)) return Rf_mkChar("NaN");
+  else if (from == R_PosInf) return Rf_mkChar("Inf");
+  else if (from == R_NegInf) return Rf_mkChar("-Inf");
 	else return Rcpp::traits::is_na<REALSXP>(from) ? NA_STRING :Rf_mkChar( coerce_to_string<REALSXP>( from ) ) ;
 }
 template <> 

Original file line number	Diff line number	Diff line change
`@@ -271,6 +271,8 @@ template <>`
`271`	`271`	`inline SEXP r_coerce<REALSXP,STRSXP>(double from){`
`272`	`272`	`// handle NaN explicitly`
`273`	`273`	`if (R_IsNaN(from)) return Rf_mkChar("NaN");`
	`274`	`+ else if (from == R_PosInf) return Rf_mkChar("Inf");`
	`275`	`+ else if (from == R_NegInf) return Rf_mkChar("-Inf");`
`274`	`276`	`else return Rcpp::traits::is_na<REALSXP>(from) ? NA_STRING :Rf_mkChar( coerce_to_string<REALSXP>( from ) ) ;`
`275`	`277`	`}`
`276`	`278`	`template <>`