如何创建超过20个条目的Rcpp NumericVector？

Question

创建超过20个元素的NumericVector会产生错误消息。 这与本文档一致（底部）：http://statr.me/rcpp-note/api/Vector_funs.html

目前，我公开了一个类（使用RCPP_MODULE），其中一个方法返回所需的NumericVector。我怎样才能返回20多个元素？

Answer 1

创建您需要的大小的向量，然后分配值&名称。这是一个RCPP“内联”功能（方便乡亲们尝试一下），但它会在你的环境中工作：

library(Rcpp) 
library(inline) 

big_vec <- rcpp(body=" 
NumericVector run(26); 
CharacterVector run_names(26); 

# make up some data 
for (int i=0; i<26; i++) { run[i] = i+1; }; 

# make up some names 
for (int i=0; i<26; i++) { run_names[i] = std::string(1, (char)('A'+i)); }; 

run.names() = run_names; 

return(run); 
") 

big_vec() 
## A B C D E F G H I J K L M N O P Q R S T U V W X Y Z 
## 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 

Answer 2

鲍勃已经表现出你是一个），你误了约束的宏观定义create()助手要绑定，以及b）如何通过内联包和循环来完成此操作。

这是使用Rcpp属性的备用解决方案。以下复制到文件，比方说，/tmp/named.cpp：

#include <Rcpp.h> 

using namespace Rcpp; 

// [[Rcpp::export]] 
NumericVector makevec(CharacterVector nm) { 
    NumericVector v(nm.size()); 
    v = Range(1, nm.size()); 
    v.attr("names") = nm; 
    return v; 
} 

/*** R 
makevec(LETTERS) 
makevec(letters[1:10]) 
*/ 

简单地调用sourceCpp("/tmp/named.cpp")将编译，连接，加载并在底部运行将R图：

R> sourceCpp("/tmp/named.cpp") 

R> makevec(LETTERS) 
A B C D E F G H I J K L M N O P Q R S T U V W X Y Z 
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 

R> makevec(letters[1:10]) 
a b c d e f g h i j 
1 2 3 4 5 6 7 8 9 10 
R>