Minor things

Author: mgirlich

src/xml2_doc.cpp

@@ -259,7 +259,7 @@ cpp11::logicals doc_has_root(cpp11::sexp x_sxp) {
 cpp11::strings doc_url(cpp11::sexp doc_sxp) {
   XPtrDoc doc(doc_sxp);
   if (doc->URL == NULL) {
-    return Rf_ScalarString(NA_STRING);
+    return cpp11::writable::strings({NA_STRING});
   }
 
   return cpp11::as_sexp((const char*) doc->URL);

src/xml2_init.cpp

@@ -59,6 +59,6 @@ extern "C" {
 }
 
 [[cpp11::register]]
-cpp11::sexp libxml2_version_(){
-  return Rf_mkString(LIBXML_DOTTED_VERSION);
+cpp11::strings libxml2_version_(){
+  return cpp11::strings({LIBXML_DOTTED_VERSION});
 }