Use DATAPTR_RO in barrier.cpp

Author: eddelbuettel

ChangeLog

@@ -1,3 +1,8 @@
+2025-03-07  Dirk Eddelbuettel  <edd@debian.org>
+
+	* src/barrier.cpp (dataptr): Replace remaining DATAPTR with
+	DATAPTR_RO for suitable R greater than 3.5.0
+
 2025-02-11  Dirk Eddelbuettel  <edd@debian.org>
 
 	* R/Rcpp.package.skeleton.R (Rcpp.package.skeleton): Support optional

src/barrier.cpp

@@ -76,7 +76,13 @@ SEXP* get_vector_ptr(SEXP x) {
 
 // [[Rcpp::register]]
 void* dataptr(SEXP x) {
+#if R_VERSION >= R_Version(3,5,0)
+    // DATAPTR_RO was introduced with R 3.5.0
+    return const_cast<void*>(DATAPTR_RO(x));
+#else
+    // this will get your wrists slapped under recent R CMD check ...
     return DATAPTR(x);
+#endif
 }
 
 // [[Rcpp::register]]