创建一个可变长度`alist()`

Question

在这个Answer 中，建议使用alist() 作为创建包含空元素的列表的简单方法。一个用例是构建一个适合通过do.call() 调用[ 的列表。例如：

x <- matrix(1:6, ncol = 2)
do.call(`[`, alist(x, , 2)) ## extract column 2 of x

[1] 4 5 6

提示alist() 答案的特定Question 要求基于对象shortdim 动态设置空参数。

如果一个人知道存在多少维度，他可以做到

al <- alist( , , ) ## 3 arguments for a 2-d object
al[[1]] <- x
shortdim <- 1
al[[shortdim + 1]] <- 1:2 ## elements 1 & 2 of dim shortdim, plus all other dims
do.call(`[`, al) 

> do.call(`[`, al) 
     [,1] [,2]
[1,]    1    4
[2,]    2    5
> x[1:2, ]         ## equivalent too
     [,1] [,2]
[1,]    1    4
[2,]    2    5

vector()可以创建动态长度列表，例如

ll <- vector(mode = "list", length = length(dim(x)) + 1)

但alist 不能以这种方式创建

> vector(mode = "alist", length = length(dim(x)) + 1)
Error in vector(mode = "alist", length = length(dim(x)) + 1) : 
  vector: cannot make a vector of mode 'alist'.

有没有办法创建一个动态长度的alist，以便稍后在需要时填写？

Answer 1

好的，我会咬的。我可能会使用list(bquote()) 来构造一个包含空符号的单元素列表，并使用rep 将其输出到所需的长度。

n <- 2
rep(list(bquote()), n)
# [[1]]
# 
# 
# [[2]]
# 
# 

作为奖励，这里收集了 5 种方法来创建/访问作为每个列表元素内容所需的空符号：

bquote()
# 
substitute()
# 
quote(expr= )
# 
formals(function(x) {})$x
# 
alist(,)[[1]]
# 

Answer 2

感谢费迪南德·卡夫：

# no. of elements in the alist
n <- 5
a <- rep(alist(,)[1], n)