Как вызвать функцию R в определенном R-пакете из Rcpp

Question

Мне интересно, есть ли способ вызвать функцию R в определенном пакете из Rcpp. Например, я хотел бы назвать функцию «dtrunc» в пакете «truncdist» в моем файле Rcpp. Можно ли это сделать?

Answer 1

Да, вы можете использовать функцию R в пределах Rcpp.

library(inline) 

src <- ' 
    using namespace Rcpp; 
    Environment truncdist("package:truncdist"); 
    Function dtrunc = truncdist["dtrunc"]; 

    NumericVector res = dtrunc(x, "norm", 1, 2); 
    return res; 
' 
x <- seq(0, 3, .1) 

fun <- cxxfunction(signature(x="numeric"),src, plugin="Rcpp") 
identical(fun(x), dtrunc(x, spec="norm", a=1, b=2)) 

Как примечание, вы должны иметь в виду, что производительность dtrunc не улучшится, просто находясь внутри Rcpp. Это будет, по сути, такая же скорость, как если бы вы вызвали ее непосредственно в R.

Answer 2

Несомненно. Вы бы захватить функцию как это:

Environment truncdist("package:truncdist") ; 
Function dtrunc = truncdist["dtrunc"] ; 

Или даже это с версии 0.11.5

Function dtrunc("dtrunc", "truncdist") ;