move as_doubles to test file ???

Author: romainfrancois

cpp11test/src/test-doubles.cpp

@@ -7,6 +7,36 @@
 
 #include <testthat.h>
 
+namespace cpp11 {
+
+inline integers as_doubles(SEXP x) {
+  /*if (TYPEOF(x) == REALSXP) {
+   return as_cpp<doubles>(x);
+   } else
+   */
+  if (TYPEOF(x) == INTSXP) {
+    integers xn = as_cpp<integers>(x);
+    return xn;
+    /*
+     R_xlen_t len = xn.size();
+     writable::doubles ret(len);
+     for (R_xlen_t i = 0; i < len; ++i) {
+     int el = xn[i];
+     if (el == NA_INTEGER) {
+     ret[i] = NA_REAL;
+     } else {
+     ret[i] = static_cast<double>(el);
+     }
+     }
+     return ret;
+     */
+  }
+
+  throw type_error(REALSXP, TYPEOF(x));
+}
+
+}
+
 context("doubles-C++") {
   test_that("doubles::r_vector(SEXP)") {
     cpp11::doubles x(Rf_allocVector(REALSXP, 2));
@@ -379,7 +409,7 @@ context("doubles-C++") {
     // cpp11::writable::integers na{NA_INTEGER};
     // cpp11::sexp na();
 
-    cpp11::integers na3(Rf_ScalarInteger(NA_INTEGER));
+    cpp11::integers na3(cpp11::as_doubles(Rf_ScalarInteger(NA_INTEGER)));
     expect_true(na3.size() == 1);
     // expect_true(ISNA(na3[0]));
     // expect_true(cpp11::is_na<double>(na3[0]));

inst/include/cpp11/doubles.hpp

@@ -149,30 +149,4 @@ int na();
 template <>
 int r_vector<int>::operator[](const R_xlen_t pos) const;
 
-inline integers as_doubles(SEXP x) {
-  /*if (TYPEOF(x) == REALSXP) {
-    return as_cpp<doubles>(x);
-  } else
-  */
-  if (TYPEOF(x) == INTSXP) {
-    integers xn = as_cpp<integers>(x);
-    return xn;
-    /*
-    R_xlen_t len = xn.size();
-    writable::doubles ret(len);
-    for (R_xlen_t i = 0; i < len; ++i) {
-      int el = xn[i];
-      if (el == NA_INTEGER) {
-        ret[i] = NA_REAL;
-      } else {
-        ret[i] = static_cast<double>(el);
-      }
-    }
-    return ret;
-     */
-  }
-
-  throw type_error(REALSXP, TYPEOF(x));
-}
-
 }  // namespace cpp11