Rcpp：处理包含列表的列表

Question

让我们首先生成一些列表，里面有列表：

lappend <- function(lst, ...){
  lst <- c(lst, list(...))
  return(lst)
}

scalarList <- list()
vectorList <- list()
MatrixList <- list()

for (i in 1:3){
  scalarList <- lappend(scalarList,i)
  vectorList <- lappend(vectorList,0:i)
  MatrixList <- lappend(MatrixList, diag(i + 1))
}

myRList <- list(scalarList = scalarList, vectorList = vectorList, 
  MatrixList = MatrixList)

现在我们的 myRList 已经准备好了，我想用 C++ 编写一个函数，如下所示：

1) 输入：1) myRList，2) 从 1 到 3 的 id

2) 输出：函数应该分别打印输入id对应的标量、向量和矩阵。

3) 编写这个函数可能有很多方法。我特别想读入列表并将其分配给相应的 arma 对象，然后打印它。原因是我写了这个简化的例子来向你们学习如何在 Rcpp 中提取另一个列表中的列表元素并将其分配给 arma 对象。

这是我的 C++ 代码：

// [[Rcpp::depends(RcppArmadillo)]]
#include <RcppArmadillo.h>

// [[Rcpp::export]]
double myListExtractor( Rcpp::List aList_In_R, int id){
int myScalar = Rcpp::as<double>(aList_In_R["scalarList"][id]); //? what to do ?
arma::vec myVector = Rcpp::as<arma::vec>(aList_In_R["vectorList"[id]]); //???
arma::mat myMatrix = Rcpp::as<arma::mat>(aList_In_R["MatrixList"[id]]); //???

// If I manage to do the three assignments above, then printing is easy:

Rcpp::Rcout << "myScalar = " << myScalar << std::endl;
Rcpp::Rcout << "myVector = " << myVector << std::endl; 
Rcpp::Rcout << "myMatrix = " << myMatrix << std::endl;

return 1; // we don't care about the return for now
}

再一次，我 100% 同意没有必要将它们分配给 arma 对象然后打印。在我自己的代码中，我对 arma 对象做了很多代数，这就是我强调这项作业以学习如何修复我的代码的原因/

非常感谢您的帮助。另外，我花了 3 个小时浏览了网络，但没有找到任何答案。

Answer 1

因为List 对象不知道它们包含的对象类型，所以您必须在每个子集级别上使用as。例如：

int myScalar = Rcpp::as<double>( Rcpp::as<Rcpp::List>(aList_In_R["scalarList"])[id] );

这样，我们可以向编译器发出信号，我们从aList_In_R 提取的槽是List，我们为Lists 提供的所有方法都应该在这里应用。这很丑陋，但它是使用静态类型语言来操作动态类型语言中使用的对象的不幸结果。

有一些工作可以将模板列表容器放入Rcpp，这可能有助于解决这种情况；例如而不是List，您可能有一个ListOf< List >，子集运算符将“知道”它应该在子集化后返回List，这可能会更好一些。也许它可以深入到ListOf< ListOf< double > > 等......