如何在R函数中指定需作为字符串的data.out输出文件名参数？

我编写了一个小型函数，用于将数据框导出为Stata .dta格式。代码如下：

dta <- function(data.in = dat){
  haven::write_dta(data.in, here("Analysis", "data", "datasets", "stata_dat.dta"), version = 14)
}

我希望添加一个data.out参数，以便在需要导出多个数据框时指定自定义文件名，而非固定的stata_dat.dta。请问当该参数需作为保存路径中的字符串时，应如何实现？

解决方案 #

你可以通过以下方式修改函数，实现自定义文件名的功能：

修改后的函数代码 #

dta <- function(data.in = dat, data.out = "stata_dat.dta"){
  haven::write_dta(data.in, here("Analysis", "data", "datasets", data.out), version = 14)
}

关键说明 #

• 新增data.out参数，并设置默认值为原固定文件名"stata_dat.dta"，这样不指定该参数时，函数仍保持原有默认行为
• 直接将data.out传入here()函数，它会自动将路径片段和文件名拼接成完整的合法路径
• 支持带相对子路径的文件名，比如传入"subfolder/2024_survey.dta"，here()会自动处理路径层级

使用示例 #

• 默认导出（保持原文件名）：

  dta(my_data_frame)
  

• 自定义文件名导出：

  dta(my_data_frame, data.out = "customer_data.dta")
  

• 导出到子文件夹：

  dta(my_data_frame, data.out = "processed_data/cleaned_survey.dta")
  

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