为什么这会让我的R会话中止？

Question

我正在尝试在Rcpp中实现命名列表调用

在R

b<-list("bgroups"=c(1,1,1,1,0,0,0,0))
> b$bgroups
[1] 1 1 1 1 0 0 0 0

cppFunction(
  "
NumericVector split(Rcpp::List & b){
  Rcpp::NumericVector c= b['bgroups'];
  return c;
}")

split(b)

但这导致我的R会话中止.

我正试图实现这个程序,如Dirk的一个演示中所示,但我遗漏了一些东西.

这是我的问题的延伸

Answer 1

以下作品:

b<-list("bgroups"=c(1,1,1,1,0,0,0,0))
b$bgroups
#[1] 1 1 1 1 0 0 0 0

Rcpp::cppFunction(
  '
NumericVector split(Rcpp::List & b){
  Rcpp::NumericVector c = b["bgroups"];
  return c;
}')

split(b)
#[1] 1 1 1 1 0 0 0 0

在C++中,'用于引用字符,而"用于引用字符串.我的编译器警告我:

warning: character constant too long for its type
   Rcpp::NumericVector c= b['bgroups'];
                            ^~~~~~~~~

通常,认真对待编译器警告是个好主意.