integers/doubles: fix which types are expected

when throwing type_error
r-lib · Aug 17, 2021 · 4222cec · 4222cec
1 parent d32349b
commit 4222cec
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/inst/include/cpp11/doubles.hpp b/inst/include/cpp11/doubles.hpp
@@ -148,7 +148,7 @@ inline doubles as_doubles(sexp x) {
     return ret;
   }
 
-  throw type_error(INTSXP, TYPEOF(x));
+  throw type_error(REALSXP, TYPEOF(x));
 }
 
 template <>

diff --git a/inst/include/cpp11/integers.hpp b/inst/include/cpp11/integers.hpp
@@ -163,7 +163,7 @@ inline integers as_integers(sexp x) {
     return ret;
   }
 
-  throw type_error(REALSXP, TYPEOF(x));
+  throw type_error(INTSXP, TYPEOF(x));
 }
 
 }  // namespace cpp11