如何使用 Rcpp 返回列是列表的数据框？

Question

正如here 所述，数据框可以将列表作为列。我尝试在 Rcpp 中做同样的事情，但没有成功。

df = data.frame(a=seq(1,2))
df$b = list(seq(1,10), seq(11,20))
df

我相应的 Rcpp 示例将生成的数据帧转换为列表（即删除数据帧属性） - 无意中：

cppFunction('
DataFrame testme() {
    DataFrame df = DataFrame::create(Named("a") = seq(1, 2));
    df["b"] = List::create(seq(1,10), seq(11,20));
    return df;
}')
testme()

有什么想法吗？

Answer 1

我找到了基于此post 的解决方法：

cppFunction('
DataFrame testme1() {
    DataFrame df = DataFrame::create(Named("a") = seq(1, 2));
    df["b"] = List::create(seq(1,10), seq(11,20));
    df.attr("class") = "data.frame";
    df.attr("row.names") = Rcpp::seq(1, 2);
    return df;
}')
testme1()

在将列表列添加到数据框后，我必须显式（重新）设置数据框属性。