如何在Rcpp :: List中访问向量的元素

Question

我很困惑.

以下编译和工作正常:

#include <Rcpp.h>
using namespace Rcpp;
// [[Rcpp::export]]
List test(){
    List l;
    IntegerVector v(5, NA_INTEGER);
    l.push_back(v);
    return l;
}

在R:

R) test()
[[1]]
[1] NA NA NA NA NA

但是当我尝试IntegerVector在列表中设置时:

// [[Rcpp::export]]
List test(){
    List l;
    IntegerVector v(5, NA_INTEGER);
    l.push_back(v);
    l[0][1] = 1;
    return l;
}

它不编译:

test.cpp:121:8: error: invalid use of incomplete type 'struct SEXPREC'
C:/PROGRA~1/R/R-30~1.0/include/Rinternals.h:393:16: error: forward declaration of 'struct SEXPREC'

Answer 1

正是因为这条线:

l[0][1] = 1;

编译器不知道它l是整数向量的列表.本质上l[0]为您提供了SEXP(所有R对象的泛型类型),并且SEXP是一个不透明的指针SEXPREC,我们无法访问te定义(因此不透明).因此,当你这样做的时候[1],你试图得到第二个SEXPREC,所以不透明度使它变得不可能,而且它不是你想要的.

你必须明确提取一个IntegerVector,所以你可以这样做:

as<IntegerVector>(l[0])[1] = 1;

要么

v[1] = 1 ;

要么

IntegerVector x = l[0] ; x[1] = 1 ;

所有这些选项都适用于相同的底层数据结构.

或者,如果您真的想要语法l[0][1],则可以定义自己的数据结构,表示"整数向量列表".这是一个草图:

template <class T>
class ListOf {
public:

    ListOf( List data_) : data(data_){}

    T operator[](int i){
        return as<T>( data[i] ) ;
    }
    operator List(){ return data ; }

private:
    List data ;
} ;

您可以使用哪种,例如:

// [[Rcpp::export]]
List test2(){
    ListOf<IntegerVector> l = List::create( IntegerVector(5, NA_INTEGER) ) ; 
    l[0][1] = 1 ;
    return l;
}

另请注意,.push_back在Rcpp向量(包括列表)上使用需要列表数据的完整副本,这可能会导致速度变慢.只有在没有选择时才使用调整大小功能.