如何修改R脚本实现空表时不导出文件

要实现空表格时不执行导出，只需在原脚本中添加数据集非空判断即可，同时还可以优化路径中的硬编码年份，让脚本更通用：

修改后的完整脚本：

year <- format(Sys.time(), "%Y")

# 仅当数据集存在数据时执行后续操作
if (nrow(dataset) > 0) {
  week <- unique(dataset$Week)
  # 用变量year替换硬编码的2024，无需每年手动修改路径
  Table <- paste0("\\\\Server\\data\\", year, "\\Test ", week, "-", year, ".csv")
  write.table(dataset, file = Table, sep = ";", na = "", row.names = FALSE, quote = FALSE)
}

关键说明： #

• nrow(dataset) > 0：空数据集的行数为0，通过这个判断可以过滤掉无数据的情况
• 替换路径中的2024为变量year：避免每年都要手动修改路径中的年份，提升脚本复用性
• 所有导出相关的代码都放在if块内，确保只有数据存在时才会生成文件并导出

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