| 40 | } |
| 41 | |
| 42 | template <typename T> T as(SEXP x, ::Rcpp::traits::r_type_primitive_tag) { |
| 43 | return primitive_as<T>(x); |
| 44 | } |
| 45 | |
| 46 | inline const char* check_single_string(SEXP x) { |
| 47 | if (TYPEOF(x) == CHARSXP) return CHAR(x); // #nocov start |
nothing calls this directly
no test coverage detected