| 58 | |
| 59 | |
| 60 | template <typename T> T as_string(SEXP x, Rcpp::traits::true_type) { |
| 61 | const char* y = check_single_string(x); |
| 62 | return std::wstring(y, y+strlen(y)); |
| 63 | } |
| 64 | |
| 65 | template <typename T> T as_string(SEXP x, Rcpp::traits::false_type) { |
| 66 | return check_single_string(x); |
nothing calls this directly
no test coverage detected