3

C/C++ 和 Rcpp 的新手。

我目前正在尝试修改我找到的示例（在这种情况下，我修改了“yada”模块示例http://cran.r-project.org/web/packages/Rcpp/vignettes/Rcpp-modules.pdf）并扩展他们来测试我的理解。

我当前编译的示例没有预期的行为。我猜我遗漏了一些东西，但我无法确定我在文档中找到的内容。任何帮助将非常感激。

示例代码如下。

library(inline)
fx=cxxfunction(,plugin="Rcpp",include='#include<Rcpp.h>
#include<string>

typedef struct containerForChars {const char *b;} containChar;

containChar cC;

const char* toConstChar(std::string s){return s.c_str();}

void setB(std::string s){
    cC.b = toConstChar(s);
}

std::string getB(void){
    std::string cs = cC.b;
    return cs;
}
RCPP_MODULE(ex1){
  using namespace Rcpp;
  function("setB",&getB);
  function("getB",&getB);
}')
mod=Module("ex1",getDynLib(fx))
f<-mod$setB
g<-mod$getB
f("asdf")
g()

f("asdf")我没有设置cC.b为，而是"asdf"收到以下错误，

Error in f("asdf") : unused argument ("asdf")

我希望将 argf()设置为 的值cC.b，并g()检索或获取我设置的值f。我的猜测是 Module 和 RCPP_MODULE 所做的任何魔法都无法使用我定义的结构。我想希望它能够工作还不够：P。

4

1 回答 1

4

常见的错字。代替

 function("setB",&getB);
 function("getB",&getB);

做

 function("setB",&setB);     # set, not get
 function("getB",&getB);

然后一切正常：

R> f("asdf")    
R> g()          
[1] "asdf" 
R>

我也会library(inline)在顶部添加。

于 2013-10-14T19:09:40.683 回答