如何使用Here包将文件写入指定文件夹？含日期格式化代码改造

先定义统一的日期格式化字符串，避免重复计算：

date_str <- format(Sys.Date(), "%Y%b%d")

改造后的PDF导出代码 #

对应原代码中直接在项目根目录生成PDF的逻辑：

pdf(file = here(paste0(date_str, ".pdf")),
    height = 6, width = 16)
# 这里插入你的绘图代码
dev.off()  # 必须调用此函数关闭PDF设备，否则文件无法正常读取

如果需要将PDF放到output文件夹下，修改为：

pdf(file = here("output", paste0(date_str, ".pdf")),
    height = 6, width = 16)
# 绘图代码
dev.off()

改造后的CSV导出代码 #

对应原代码中在output文件夹生成CSV的逻辑：

write.csv(df, 
          file = here("output", paste0("first_", date_str, ".csv")), 
          quote = FALSE, 
          row.names = FALSE, 
          na = ".")

核心说明 #

• here()函数默认指向项目根目录，完全替代原代码中的projPath，无需手动拼接根路径
• 用here()时，可将文件夹名、文件名作为独立参数传入，也可先拼接好完整文件名再传入，两种方式都能保证跨平台路径兼容性
• 提前定义date_str让代码更简洁易维护，避免重复调用日期格式化函数

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