Use cpp11 raws with memcpy

Author: mgirlich

src/connection.h

@@ -13,13 +13,12 @@ SEXP read_bin(SEXP con, size_t bytes = 64 * 1024);
 cpp11::sexp write_bin(cpp11::sexp data, cpp11::sexp con);
 
 inline size_t R_WriteConnection(SEXP con, void* buf, size_t n) {
-  SEXP payload = PROTECT(Rf_allocVector(RAWSXP, n));
+  cpp11::writable::raws payload(n);
+  SEXP payload_sexp = SEXP(payload);
 
-  memcpy(RAW(payload), buf, n);
+  memcpy(RAW(payload_sexp), buf, n);
 
-  write_bin(payload, con);
-
-  UNPROTECT(1);
+  write_bin(payload_sexp, con);
 
   return n;
 }

src/cpp11.cpp

@@ -83,7 +83,7 @@ extern "C" SEXP _xml2_init_libxml2() {
   END_CPP11
 }
 // xml2_init.cpp
-cpp11::sexp libxml2_version_();
+cpp11::strings libxml2_version_();
 extern "C" SEXP _xml2_libxml2_version_() {
   BEGIN_CPP11
     return cpp11::as_sexp(libxml2_version_());