请考虑以下CPP函数
// [[Rcpp::exp或t]]
int timesTwo(int x) {
return x * 2;
}
如果我在这个函数中输入了一个错误类型的对象(例如"字符")，显然，它将无法工作并显示此错误消息
Err或: Not compatible with requested type: [type=character; target=integer].
然而，我想让它变得更有信息性，例如
Err或 in timesTwo(int x)
Err或: Not compatible with requested type: [type=character; target=integer].
或
Err或 in the parameter x of timesTwo(int x)
Err或: Not compatible with requested type: [type=character; target=integer].
我想知道我怎样才能在CPP中做到这一点？
有两种显而易见的方法来处理这一问题.第一种方法是通过R中的包装器调用cpp函数，该包装器预先执行类型判断.例如:
Rcpp::cppFunction('
int times_two_cpp(int x) {
return x * 2;
}')
timesTwo <- function(x) {
if(!is.integer(x)) stop("'x' should be an integer, not ", typeof(x))
times_two_cpp(x)
}
经过测试，我们有:
timesTwo(5L)
#> [1] 10
timesTwo('hello')
#> Error in timesTwo("hello") : 'x' should be an integer, not character
第二种 Select 是允许您的C++函数接受任何R对象，并在内部进行类型判断.这需要对R内部 struct 有一些了解
Rcpp::cppFunction('
Rcpp::IntegerVector timestwo(SEXP x) {
if(TYPEOF(x) != INTSXP) {
Rcpp::stop("in the parameter x of timesTwo - x is not an integer");
}
Rcpp::IntegerVector result(x);
return result * 2;
}
')
导致
timestwo(5L)
#> [1] 10
timestwo('hello')
#> Error: in the parameter x of timesTwo - x is not an integer