使用lapply时在每个文件之间添加空行

# 步骤1：创建文件列表
file_list <- c("file1.txt", "file2.txt", "file3.txt")

# 步骤2：定义一个函数，用于在每个文件之间添加空行
add_blank_line <- function(file_path) {
  # 步骤3：处理每个文件
  file_content <- readLines(file_path)  # 读取文件内容
  modified_content <- c(file_content, "")  # 在每个元素之间添加空行
  writeLines(modified_content, file_path)  # 将修改后的内容写回文件
  close(file_path)  # 关闭文件
}

# 使用lapply函数遍历文件列表，并调用add_blank_line函数
lapply(file_list, add_blank_line)