r - 从 R 调用 Rcpp 文件时加载错误，然后在其中回调

Question

我编写了一个R程序，它调用 hello1() ，这是 demo2.cpp 中包含的 Rcpp 函数程序

library(Rcpp)
ssss <- function(dd)
{
    return(paste("hello ",dd))
}

sourceCpp(file='demo2.cpp')
currentpath <- "/home/xuyan/R/parallel/"
aaa <-hello1(0,currentpath)
print(aaa)

我的demo2.cpp是:

#include <Rcpp.h>
#include <string>
#include <RInside.h>

using namespace std;
using namespace Rcpp;

// [[Rcpp::export]]
int  hello1(int argc,string path)
{
    const char *argv[] = {path.c_str()};
    RInside R(argc,argv);
    R["txt"] = "Hello, world!\n";     

    R["sourcer"] = "demo.r";
    R.parseEvalQ("source(sourcer)");
    string str = Rcpp::as<string>(R.parseEval("ssss(txt)"));
    cout << "result is" << str << endl;
    return(111);
}

我尝试使用以下命令启动此脚本:

Rscript demo.r

我收到以下错误:

Error in dyn.load("/tmp/RtmpZl0JKp/sourceCpp-x86_64-pc-linux-gnu-0.12.10/sourcecpp_90cc33eafd15/sourceCpp_2.so") : unable to load shared object '/tmp/RtmpZl0JKp/sourceCpp-x86_64-pc-linux-gnu-0.12.10/sourcecpp_90cc33eafd15/sourceCpp_2.so': /tmp/RtmpZl0JKp/sourceCpp-x86_64-pc-linux-gnu-0.12.10/sourcecpp_90cc33eafd15/sourceCpp_2.so: undefined symbol: _ZN7RInsideD1Ev Calls: sourceCpp -> source -> withVisible -> eval -> eval -> dyn.load Execution halted

事实上，我想解决R的 for 的缓慢问题环形。我有一个R程序，它有一个大的 for循环并且执行速度非常慢。所以，我想改变for从R循环到C++代码。 for内循环中，我调用了许多R函数。因此，我需要从C++代码调用R程序。因此，顺序是R到C++到R，即R到Rcpp> 致Rinside，我错了吗？

为什么？

Answer 1

鉴于您已经有一个事件的 R session ，您不应该在 C++ 中创建新的 R session 。话虽如此，不要同时包含 Rcpp.h 和 RInside.h。在这种情况下，您应该只使用 Rcpp.h。

所以，只需使用:

#include <Rcpp.h>

// [[Rcpp::export]]
int  hello1(int argc, string path)
{
    const char *argv[] = {path.c_str()};
    return(111);
}

---

编辑 1

根据后来删除的评论，我认为您想在 C++ 中使用一些 R 函数。为此，请使用 Rcpp 的 Function 类。确保首先通过运行声明将R函数加载到内存中。完成此操作后，编译以下C++代码:

#include <Rcpp.h>

// [[Rcpp::export]]
Rcpp::CharacterVector hello1()
{
    Rcpp::Function some_r_func("ssss");

    return some_r_func("a");
}

---

最终编辑

In fact, I want to solve slowness of R's for loop. I have an R program that has a large for loop and it execute very slowly. So, I want to change that for loop from R to C++ code. Within the for loop, I call many R functions. So, I need to call from C++ code to R program. Thus, the order is R to C++ to R, that is R to Rcpp to Rinside, am I wrong?

仅将调用 R 函数的循环从 R 切换到 C++ 并期望加速是不正确的。然后，每次遇到 R 函数时，同一个循环都必须伸出援手，并与 R session 进行通信。本质上，它有效地暂停了C++代码，等待R代码执行并产生结果，然后恢复C++ shell。

在此范式中有效加速代码的唯一方法是用C++完全编写所有R函数，然后调用它们的C++ for 循环中的 C++ 等效项。

请参阅我之前对“R to Rcpp to Rinside”的评论，这又是一个NO。永远不要这样做。时期。只有“R 到 Rcpp”或“C++ 到 RInside”是可行的。