[[arrow::export]]
| 1100 | |
| 1101 | // [[arrow::export]] |
| 1102 | void test_arrow_altrep_set_string_elt(sexp x, int i, std::string value) { |
| 1103 | if (!is_arrow_altrep(x)) { |
| 1104 | stop("x is not arrow ALTREP"); |
| 1105 | } |
| 1106 | |
| 1107 | SET_STRING_ELT(x, i, Rf_mkChar(value.c_str())); |
| 1108 | } |
| 1109 | |
| 1110 | // [[arrow::export]] |
| 1111 | sexp test_arrow_altrep_is_materialized(sexp x) { |
no test coverage detected