命令行调用R脚本：如何将参数解析为函数的...命名参数？

我明白你的需求了——你想把命令行传入的参数（比如x=1 y=2）解析成函数...参数的形式，最终得到类似c(x=1, y=2)的命名向量，而不是默认的列表。下面是一步步的解决方案：

1. 先搞定命令行参数的解析 #

首先，我们需要把命令行传入的字符串格式参数（比如"x=1"）拆分成键值对，并且自动转换值的类型（比如把字符串"1"转成数值1）。写一个简单的解析函数：

parse_cmd_args <- function(args) {
  # 遍历每个命令行参数，拆分键和值
  parsed_list <- lapply(args, function(arg) {
    split_parts <- strsplit(arg, "=", fixed = TRUE)[[1]]
    param_name <- split_parts[1]
    # 自动转换值的类型（数值、逻辑、字符都能处理）
    param_value <- type.convert(split_parts[2], as.is = FALSE)
    # 返回带命名的单个元素列表
    setNames(list(param_value), param_name)
  })
  # 把多个小列表合并成一个大的命名列表
  do.call(c, parsed_list)
}

2. 定义你的目标函数（带...参数） #

在函数里，我们需要把...收集到的参数列表转换成命名向量。核心就是用unlist()把列表转成向量，同时保留命名：

my_target_function <- function(...) {
  # 把...的参数收集成列表
  args_list <- list(...)
  # 转成命名向量（use.names=TRUE保留参数名）
  named_vector <- unlist(args_list, use.names = TRUE)
  # 这里可以加你自己的逻辑，比如返回向量或者做其他处理
  return(named_vector)
}

3. 整合脚本，实现命令行调用 #

把参数解析、函数调用的逻辑整合起来，用commandArgs()获取命令行参数，再用rlang::exec()（或者基础R的do.call()）把解析后的命名列表传递给函数的...：

library(rlang) # 如果你用exec的话需要这个包，用do.call就不用

# 解析命令行参数
cmd_args <- commandArgs(trailingOnly = TRUE)
parsed_params <- parse_cmd_args(cmd_args)

# 调用目标函数，把解析后的参数传给...
# 用exec的话，!!!是解包列表，把每个元素作为单独的命名参数传递
result <- exec(my_target_function, !!!parsed_params)
# 或者用基础R的do.call，效果一样：
# result <- do.call(my_target_function, parsed_params)

# 输出结果看看
print(result)

4. 测试一下 #

在命令行里运行你的脚本：

Rscript your_script.R x=1 y=2 z=3.14 is_true=TRUE name="test"

你会得到这样的命名向量输出：

x       y       z  is_true    name 
      1       2    3.14    TRUE "test" 

关键说明 #

• 为什么你之前得到的是列表？因为...参数在函数里默认是收集成列表的，rlang::list2(...)也只是把...整理成更规范的列表，要转成向量必须用unlist()。
• type.convert()会自动识别参数类型，不用手动处理数值、逻辑、字符的转换，非常方便。
• exec()的!!!操作符是rlang里的“解包”语法，能把命名列表的每个元素作为单独的命名参数传给函数的...，和do.call()效果一致，选你习惯的方式就行。

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