simplify is_na()

krlmlr · krlmlr · commit fcfdc2dc0d7e · 2018-01-11T13:35:28.000+01:00
diff --git a/inst/include/Rcpp/traits/is_na.h b/inst/include/Rcpp/traits/is_na.h
@@ -39,7 +39,7 @@ namespace Rcpp{
 
         template <>
         inline bool is_na<REALSXP>(double x) {
-            return internal::Rcpp_IsNA(x) || internal::Rcpp_IsNaN(x);
+            return R_isnancpp(x);
         }
 
         template <>

Original file line number	Diff line number	Diff line change
`@@ -39,7 +39,7 @@ namespace Rcpp{`
`39`	`39`
`40`	`40`	`template <>`
`41`	`41`	`inline bool is_na<REALSXP>(double x) {`
`42`		`- return internal::Rcpp_IsNA(x) \|\| internal::Rcpp_IsNaN(x);`
	`42`	`+ return R_isnancpp(x);`
`43`	`43`	`}`
`44`	`44`
`45`	`45`	`template <>`