使用字符串调用mgcv::gam时do.call及formalArgs失效问题求助

问题出在"mgcv::gam"这类带命名空间的函数字符串上：R无法直接将这种格式的字符串解析为对应的函数对象，而基础包（如stats）的函数因为在默认搜索路径中，直接传函数名字符串就能被找到，非基础包的函数则需要明确指定命名空间环境来获取。

解决步骤： #

1. 拆分命名空间与函数名：将"mgcv::gam"拆分为包名和函数名两部分
2. 从指定命名空间获取函数对象：用get()函数配合包的命名空间环境来获取函数
3. 正常使用formalArgs与do.call：拿到函数对象后，即可像处理基础包函数一样操作

具体代码示例 #

处理formalArgs：

model <- "mgcv::gam"
# 拆分字符串
model_parts <- strsplit(model, "::")[[1]]
# 从mgcv的命名空间中获取gam函数
gam_func <- get(model_parts[2], envir = asNamespace(model_parts[1]))
# 现在可以正常获取参数列表
formalArgs(gam_func)

处理do.call调用模型：

# 构造模型所需参数
args <- list(formula = mpg ~ s(disp), data = mtcars)
# 调用模型
gam_model <- do.call(gam_func, args)

通用封装函数（适配有无命名空间的模型字符串）：

get_model_function <- function(model_str) {
  parts <- strsplit(model_str, "::")[[1]]
  if (length(parts) == 1) {
    # 无命名空间，直接从默认环境获取函数
    get(parts[1], mode = "function")
  } else {
    # 有命名空间，从对应包的命名空间获取
    get(parts[2], envir = asNamespace(parts[1]))
  }
}

# 使用示例
model1 <- "glm"
model2 <- "mgcv::gam"

glm_func <- get_model_function(model1)
gam_func <- get_model_function(model2)

# 验证参数获取
formalArgs(glm_func)
formalArgs(gam_func)

# 调用模型
glm_model <- do.call(glm_func, list(formula = mpg ~ disp, data = mtcars))
gam_model <- do.call(gam_func, list(formula = mpg ~ s(disp), data = mtcars))

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