1

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

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

我收到以下错误：

dyn.load 中的错误（“/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'：/tmp/RtmpZl0JKp/sourceCpp-x86_64-pc-linux-gnu-0.12.10/sourcecpp_90cc33eafd15/sourceCpp_2.so：未定义符号：_ZN7RInsideD1Ev 调用：sourceCpp-> source -> withVisible -> eval -> eval -> dyn.load 执行停止

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

为什么？

4

1 回答 1

2

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

所以，只需使用：

#include <Rcpp.h>

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

编辑 1

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

#include <Rcpp.h>

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

    return some_r_func("a");
}

最终编辑

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

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

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

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

于 2017-04-05T02:05:25.117 回答