在C中调用R包中的C代码

所述R_RegisterCCallable / R_GetCCallable溶液指向@BrodieG可能比下面的一个更好,至少当一个可以修改其中需要登记的包,并且其中的函数调用的选择是直接的(下面的例子中从多个 – 来或者更复杂的R代码,它选择几个函数之一传递给C,就像lapply的FUN参数一样,函数的选择在R中比C更容易实现.当想要公开/访问许多功能时,相关的是 Linking to other packages.

相关的可能性是使用R_init_rje.c中的类似内容在rje包中注册C函数

#include <Rinternals.h>
#include <R_ext/Rdynload.h>

SEXP rje(SEXP who) {
    Rprintf("Hello %s\n",CHAR(@R_675_10495@NG_ELT(who,0)));
    return R_NilValue;
}

static const R_CallMethodDef callMethods[] = {
    {".rje",(DL_FUNC) &rje,1},{NULL,NULL,0}
};

void R_init_rje(DllInfo * info)
{
    R_registerRoutInes(info,callMethods,null);
}

在NAMESPACE

useDynLib(rje,.registration=TRUE)

然后,在R as中可以获得C级入口点的地址

rje_c = getNativeSymbolInfo(".rje",PACKAGE="rje")

并且可以在其他包中使用它作为C函数的参数,例如,

.Call(.use_rje,rje_c$address,"A User")

同

#include <Rinternals.h>
#include <R_ext/Rdynload.h>

/* convenience deFinition of the function template */
typedef SEXP Rje_C_FUN(SEXP who);

SEXP use_rje(SEXP rje_c_fun,SEXP who) {
    /* retrieve the function pointer,using an appropriate cast */
    Rje_C_FUN *fun = (Rje_C_FUN *) R_ExternalPTraddr(rje_c_fun);
    return fun(who);
}

在包中说明这一点太笨拙了,但原理由以下文件rje.c说明

#include <Rinternals.h>
#include <R_ext/Rdynload.h>

/* convenience deFinition of the function template */
typedef SEXP Rje_C_FUN(SEXP who);

SEXP rje(SEXP who) {
    Rprintf("Hello '%s'\n",0)));
    return R_NilValue;
}

SEXP use_rje(SEXP rje_c_fun,using an appropriate cast */
    Rje_C_FUN *fun = (Rje_C_FUN *) R_ExternalPTraddr(rje_c_fun);
    return fun(who);
}

static const R_CallMethodDef callMethods[] = {
    {".rje",{".use_rje",(DL_FUNC) &use_rje,2},null);
}

使用R CMD SHLIB rje.c编译,并使用as

> dyn.load("rje.so")
> .Call(".use_rje",getNativeSymbolInfo("rje")$address,"A User")
Hello 'A User'
NULL