将 `...` 参数传递给 lapply

Question

我在编写一个将... 作为参数并在函数体中包含lapply(..., length) 的函数时遇到问题。

目前，我的代码是（重要的部分在第 2 行）：

paste1 <- function(..., sep = " ", collapse = NULL) {
    if(isTRUE(unique(as.logical(lapply(X = ..., FUN = length)))))
        if(length(sep)) paste(..., sep = sep, collapse = collapse)
        else paste0(..., collapse = collapse)
    else
        ""
}

问题在于lapply(X = ..., FUN = length) 部分。如果... 参数中有多个元素，它会尝试一次将length 应用于所有参数，这会引发错误，因为length 只有一个参数。

我不能使用像lapply(X = as.list(...), FUN = length) 这样的东西，因为... 的某些元素可能是NULL，而... 的列表表示会丢失信息。

我需要做的就是将length 应用于... 的各个元素，而不是先强制它们。

Answer 1

此版本使用dots <- list(...)，这似乎不会在此输入上失败：

> paste1(A = "foo", B = NULL, C = c("bar","foo"))
[1] ""

我没有查看您的函数正在尝试做什么，也没有查看这是否是有效输入，但lapply(X = dots, FUN = length) 可以满足您的需求，dots <- list(...) 保留了 NULL。

paste1 <- function(..., sep = " ", collapse = NULL) {
    dots <- list(...)
    if(isTRUE(unique(as.logical(lapply(X = dots, FUN = length)))))
        if(length(sep)) paste(dots, sep = sep, collapse = collapse)
        else paste0(dots, collapse = collapse)
    else
        ""
}