| 330 | 330 | #' @param x vector |
|
| 331 | 331 | #' @param type type to coerce to. Possible types are: |
|
| 332 | 332 | #' |
|
| 333 | - | #' @return |
|
| 333 | + | #' @return coerced vector (which can be an ALTREP) |
|
| 334 | 334 | diagnostic_coerce <- function(x, type) { |
|
| 335 | 335 | result <- run_user_method2(user_method_coerce, x, type) |
|
| 336 | 336 |
| 84 | 84 | SEXP trigger_coerce(SEXP x, int type) |
|
| 85 | 85 | { |
|
| 86 | 86 | test_altrep(x); |
|
| 87 | - | ||
| 87 | + | ||
| 88 | 88 | if (!is_altrep_vector(x)) |
|
| 89 | 89 | { |
|
| 90 | 90 | Rf_error("x is not an ALTREP vector"); |
|
| 91 | 91 | } |
|
| 92 | - | ||
| 92 | + | ||
| 93 | 93 | if ((type != LGLSXP) && |
|
| 94 | 94 | (type != INTSXP) && |
|
| 95 | 95 | (type != REALSXP) && |
| 100 | 100 | (type != EXPRSXP)) |
|
| 101 | 101 | { |
|
| 102 | 102 | Rf_error("Undefined type, valid types are 10 (LGLSXP), 13 (INTSXP), 14 (REALSXP)" |
|
| 103 | - | "15 (CPLXSXP), 16 (STRSXP), 19 (VECSXP), 24 (RAWSXP) and 20 (EXPRSXP)"); |
|
| 103 | + | "15 (CPLXSXP), 16 (STRSXP), 19 (VECSXP), 24 (RAWSXP) and 20 (EXPRSXP)"); |
|
| 104 | 104 | } |
|
| 105 | - | ||
| 105 | + | ||
| 106 | 106 | SEXP res = ALTREP_COERCE_PROXY(x, type); |
|
| 107 | 107 | ||
| 108 | 108 | return sexp_or_null(res); |
MarcusKlik
