Function test_arrow_altrep_copy_by_dataptr

r/src/altrep.cpp:1234–1258

[[arrow::export]]

// [[arrow::export]]
sexp test_arrow_altrep_copy_by_dataptr(sexp x) {
  if (!is_arrow_altrep(x)) {
    stop("x is not arrow ALTREP");
  }

  R_xlen_t n = Rf_xlength(x);

  if (TYPEOF(x) == INTSXP) {
    cpp11::writable::integers out(Rf_xlength(x));
    int* ptr = INTEGER(x);
    for (R_xlen_t i = 0; i < n; i++) {
      out[i] = ptr[i];
    }
    return out;
  } else if (TYPEOF(x) == REALSXP) {
    cpp11::writable::doubles out(Rf_xlength(x));
    double* ptr = REAL(x);
    for (R_xlen_t i = 0; i < n; i++) {
      out[i] = ptr[i];
    }
    return out;
  } else {
    return R_NilValue;
  }
}