RMarkdown参数化渲染报错：map()中switch()提示EXPR需为长度1向量

错误原因 #

你当前使用purrr::walk同时传递.x和.y两个向量的写法不符合函数设计逻辑：walk默认仅遍历单个输入向量，无法自动配对两个向量的对应元素，导致内部处理时出现参数长度不匹配的问题，触发了switch()的报错。

解决方案 #

下面提供两种可行的修正方式：

方法1：用purrr::pmap处理多参数配对

pmap专门用于处理多组并行输入，能正确配对dados中每一行的sys_loc_code和measurement_date：

# 方式A：通过列表传入参数
purrr::pmap(
  .l = list(
    sys_loc = dados$sys_loc_code,
    meas_date = dados$measurement_date
  ),
  ~ rmarkdown::render(
    input = "index.Rmd",
    output_file = glue::glue("Checklist Agro - {..1}{..2}.pdf"),
    params = list(sys_loc_code = ..1, measurement_date = ..2)
  )
)

# 方式B：直接传入数据框，用列名匹配参数（更直观）
purrr::pmap(dados, function(sys_loc_code, measurement_date) {
  rmarkdown::render(
    input = "index.Rmd",
    output_file = glue::glue("Checklist Agro - {sys_loc_code}{measurement_date}.pdf"),
    params = list(sys_loc_code = sys_loc_code, measurement_date = measurement_date)
  )
})

方法2：用Base R的for循环遍历

如果不习惯purrr的语法，用基础循环更直白，也能避免参数配对错误：

for (row_idx in seq(nrow(dados))) {
  current_loc <- dados$sys_loc_code[row_idx]
  current_date <- dados$measurement_date[row_idx]
  
  rmarkdown::render(
    input = "index.Rmd",
    output_file = glue::glue("Checklist Agro - {current_loc}{current_date}.pdf"),
    params = list(sys_loc_code = current_loc, measurement_date = current_date)
  )
}

额外优化建议 #

• 修正RMarkdown的参数默认值，避免和变量名混淆（原写法的默认值是变量名字符串，可能导致不必要的歧义）：

params:
   sys_loc_code: ""
   measurement_date: ""

• 提前检查dados数据框：确保sys_loc_code和measurement_date列长度一致，无缺失值。

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