传递省略号参数以在 Reduce 内的函数调用中进行评估

Question

背景

我有一个有趣的函数，它使用all.equal 比较列表中的向量。当我使用all.equal 时，我想通过省略号传递相关的all.equal 参数。无需向all.equal 传递任何内容，该函数即可按需要工作。

功能目标

• 该函数旨在提供all.equal 调用的修改版本，可处理任意数量的向量
• 每个向量可以有任意数量的元素；但是，如果所有向量的长度不同，则该函数将返回 false。
• 该函数应该能够利用all.equal 中可用的参数。例如，如果提供了具有正确值的 tolerance 参数，则向量 c(1.1, 2)、c(1, 2) 和 c(1.3, 2) 将被视为相等。 问题在于如何让它发挥作用。

示例

比较 1000 个向量，每个向量由三个整数组成。

    compare_multiple_vectors(x = lapply(
              X = vector(mode = "list", length = 1e3),
              FUN = function(...) {
                  c(1, 2, 3)
              }
          ))

    # [1] TRUE

问题/期望的结果

在以下向量列表中使用tolerance = 1 调用all.equal 将返回预期的TRUE

all.equal(c(1,2), c(1,1), tolerance = 1)
# [1] TRUE

tolerance = 1 参数未能过滤到 Reduce 内部。

compare_multiple_vectors(x = list(c(1,2), c(1,1)), tolerance = 1)
# [1] FALSE

想要的结果应该是TRUE。

---

代码

#' @title Compare Values of Multiple Vectors
#'
#' @description The function compares values across multiple vectors using
#'   \code{\link[base]{all.equal}}.
#'
#' @param x Alist of vectors to compare
#' @param ... as in  \code{\link[base]{all.equal}}
#'
#' @return A logical
#'
#' @export
#'
#' @importFrom checkmate assert_atomic_vector
#'
#' @examples
#' # Returns TRUE
#' compare_multiple_vectors(c(1,1,1), c(1,1,1))
#' # Returns FALSE
#' compare_multiple_vectors(c(1,1,1), c(1,1,1), c(1,2,1))
#' # Returns FALSE
#' compare_multiple_vectors(c(1,2,3), c(3,2,1))
compare_multiple_vectors <- function(x, ...) {
    # Check if all elements of x are atomic vectors
    Vectorize(FUN = checkmate::assert_atomic_vector,
              vectorize.args = "x")(x)

    # Compare list elements
    Reduce(
        f = function(a, b, ...) {
            if (isTRUE(all.equal(target = a, current = b, ...))) {
                a
            } else {
                FALSE
            }
        },
        x = x
    ) -> res_red

    # Return results
    if (isFALSE(res_red)) {
        return(FALSE)
    } else {
        return(TRUE)
    }
}

---

注意事项

• 我有兴趣使用省略号并将初始调用保持原样

  compare_multiple_vectors(x = list_of_vectors_to_compare, 
                           ... # all.equal arguments
                           )
  

Answer 1

我认为只需要一点改变：

compare_multiple_vectors <- function(x, ...) {
    # Check if all elements of x are atomic vectors
    Vectorize(FUN = checkmate::assert_atomic_vector,
              vectorize.args = "x")(x)

    # Compare list elements
    Reduce(
        f = function(a, b) {  # <===================== Remove *...*

            if (isTRUE(all.equal(target = a, current = b, ...))) {
                a
            } else {
                FALSE
            }
        },
        x = x
    ) -> res_red

    # Return results
    if (isFALSE(res_red)) {
        return(FALSE)
    } else {
        return(TRUE)
    }
}

Reduce 的参数f 似乎有一个签名，如function(x, y)。所以 Reduce 将忽略 f 中的 ...。如果去掉f的省略号，...会从外层空间引用，得到你想要的结果。