R - 函数参数是函数列表 - 检查参数而不进行评估？

在R中，可以使用lapply函数来遍历函数列表，并检查参数而不进行评估。

下面是一个示例代码：

# 创建一个函数列表
func_list <- list(
  function(x) {
    if (is.numeric(x)) {
      return(x^2)
    } else {
      return(NA)
    }
  },
  function(y) {
    if (is.character(y)) {
      return(paste(y, "is a character"))
    } else {
      return(NA)
    }
  }
)

# 定义一个函数来检查参数而不进行评估
check_parameters <- function(func_list, ...) {
  parameters <- list(...)
  
  # 使用lapply函数遍历函数列表
  result <- lapply(func_list, function(func) {
    # 检查参数是否满足函数的要求
    if (all(names(parameters) %in% names(formals(func)))) {
      return(TRUE)
    } else {
      return(FALSE)
    }
  })
  
  return(result)
}

# 调用check_parameters函数来检查参数
check_parameters(func_list, x = 2)
check_parameters(func_list, y = "hello")
check_parameters(func_list, z = 3)

在上面的示例中，我们首先定义了一个包含两个函数的函数列表func_list。然后，我们定义了check_parameters函数来检查参数而不进行评估。该函数使用lapply函数遍历函数列表，并检查参数是否满足每个函数的要求。最后，我们调用check_parameters函数来检查参数x = 2和y = "hello"是否满足函数列表中的函数的要求。