有一种方法可以通过alist在构造的调用列表中设置空参数。如果我们这样做，例如：

alist(,)[1]
#> [[1]]

字符串
然后我们有一个空的list元素，我们可以将它传递给rep以获得多个空参数。这允许我们通过这个函数来构建我们想要的调用：

call_to_remove_last <- function(A, ind) {
  
  args <- c(quote(`[`),
            substitute(A), 
            rep(alist(,)[1], length(dim(A)) - 1), 
            substitute(ind), 
            drop = FALSE)
  
  as.call(args)
}

型
让我们在一个虚拟的3d和4d数组上测试一下：

arr_3d <- array(1:24, dim = c(2, 2, 6))
arr_4d <- array(1:120, dim = c(5, 2, 2, 6))
toremove <- c(2, 5, 6)

call_to_remove_last(arr_3d, toremove)
#> arr_3d[, , toremove, drop = FALSE]

call_to_remove_last(arr_4d, toremove)
#> arr_4d[, , , toremove, drop = FALSE]

型
我们实际需要的函数只是额外的步骤来计算这个调用：

remove_last <- function(A, ind) {
  
  args <- c(quote(`[`),
            substitute(A), 
            rep(alist(,)[1], length(dim(A)) - 1), 
            substitute(ind), 
            drop = FALSE)
  
  eval(as.call(args))
}
``
When we test, we see that the final dimension has dropped by length 3, as expected:
```r
dim(remove_last(arr_3d, toremove))
#> [1] 2 2 3

dim(remove_last(arr_4d, toremove))
#> [1] 5 2 2 3

型
创建于2023-07-19，使用reprex v2.0.2

如果我们在缺少逗号的地方使用TRUE，我的问题中的选项3似乎可以工作：

Anew <- do.call('[', c(list(A), rep(TRUE, length(dim(A))-1), list(-toremove), list(drop=FALSE))

字符串
我很高兴听到更好的解决方案。