chore: Avoid calls to non-API R functions

Author: krlmlr

src/reltoaltrep.cpp

@@ -122,13 +122,13 @@ MaterializedQueryResult *AltrepRelationWrapper::GetQueryResult() {
 			cpp11::stop("Materialization is disabled, use collect() or as_tibble() to materialize.");
 		}
 
-		auto materialize_callback = Rf_GetOption(RStrings::get().materialize_callback_sym, R_BaseEnv);
+		auto materialize_callback = Rf_GetOption1(RStrings::get().materialize_callback_sym);
 		if (Rf_isFunction(materialize_callback)) {
 			sexp call = Rf_lang2(materialize_callback, rel_eptr);
 			Rf_eval(call, R_BaseEnv);
 		}
 
-		auto materialize_message = Rf_GetOption(RStrings::get().materialize_message_sym, R_BaseEnv);
+		auto materialize_message = Rf_GetOption1(RStrings::get().materialize_message_sym);
 		if (Rf_isLogical(materialize_message) && Rf_length(materialize_message) == 1 &&
 		    LOGICAL_ELT(materialize_message, 0) == true) {
 			// Legacy
@@ -244,7 +244,7 @@ struct AltrepVectorWrapper {
 				dest_offset += chunk.size();
 			}
 		}
-		return DATAPTR(transformed_vector);
+		return (void*)DATAPTR_RO(transformed_vector);
 	}
 
 	SEXP Vector() {

src/scan.cpp

@@ -64,7 +64,7 @@ struct DedupPointerEnumType {
 		return val == NA_STRING;
 	}
 	static uintptr_t Convert(SEXP val) {
-		return (uintptr_t)DATAPTR(val);
+		return (uintptr_t)DATAPTR_RO(val);
 	}
 };
 

src/transform.cpp

@@ -216,7 +216,7 @@ SEXP ToRString(const string_t &input) {
 
 void duckdb_r_transform(Vector &src_vec, const SEXP dest, idx_t dest_offset, idx_t n, bool integer64) {
 	if (src_vec.GetType().GetAlias() == R_STRING_TYPE_NAME) {
-		ptrdiff_t sexp_header_size = (data_ptr_t)DATAPTR(R_BlankString) - (data_ptr_t)R_BlankString;
+		ptrdiff_t sexp_header_size = (data_ptr_t)DATAPTR_RO(R_BlankString) - (data_ptr_t)R_BlankString;
 
 		auto child_ptr = FlatVector::GetData<uintptr_t>(src_vec);
 		auto &mask = FlatVector::Validity(src_vec);