如何在do.call构建seminr复合对象时传递weights参数函数？

错误原因 #

报错cannot coerce class ‘"function"’ to a data.frame的核心原因是：multi_items的weights参数预期接收计算完成的数值向量或数据框，而你直接传递了函数对象本身，R尝试将函数转为数据框时触发错误。

正确解决方案 #

必须传递函数执行后的结果，而非函数对象本身。以下是具体修正方式：

基础修正示例 #

假设你原本的错误代码如下：

# 错误示例：直接传递函数对象
mode_for_use <- list(function() c(0.5, 0.5), function() c(0.3, 0.7))
for(i in seq_along(mode_for_use)){
  args_list <- list(items = c("a", "b"), weights = mode_for_use[[i]])
  do.call(multi_items, args_list)
}

修正后，先执行函数拿到结果，再放入参数列表：

# 修正后：先执行函数，传递输出结果
mode_for_use <- list(function() c(0.5, 0.5), function() c(0.3, 0.7))
for(i in seq_along(mode_for_use)){
  # 执行函数获取weights需要的数值
  weights_result <- mode_for_use[[i]]()
  args_list <- list(items = c("a", "b"), weights = weights_result)
  do.call(multi_items, args_list)
}

带参数的函数处理 #

如果你的函数需要额外参数，执行时直接传入即可：

# 函数带参数的情况
mode_for_use <- list(function(w1, w2) c(w1, w2), function(w1, w2) c(w1*0.8, w2*1.2))
for(i in seq_along(mode_for_use)){
  # 传入函数所需参数并执行
  weights_result <- mode_for_use[[i]](0.5, 0.5)
  args_list <- list(items = c("a", "b"), weights = weights_result)
  do.call(multi_items, args_list)
}

常见误区说明 #

• 直接传递函数对象：这是核心错误，weights不需要函数，需要函数的输出值。
• 转为字符串传递：完全无效，因为参数需要的是数值类型，不是函数的名称字符串。
• 未正确执行函数：如果之前尝试过mode_for_use[[i]]()但失败，优先检查函数本身执行是否报错（比如函数内部逻辑问题），而非do.call的传递方式。

内容的提问来源于stack exchange，提问作者MaskofIllusion