使用 write_xlsx 损坏/覆盖的 excel 文件

Question

我在 R 中使用此代码更改 excel 文件第四列的名称（感谢：Change column name with file name of corresponding excel file），但问题是最后文件被覆盖并生成损坏的 excel文件（Excel 文件格式和扩展名不匹配）。如何在结尾处创建一个新的 excel 文件（不被覆盖），或者您有没有其他解决方案来不创建损坏的文件？

filenames <- list.files(pattern = '\\.xlsx', full.names = TRUE)

lapply(filenames, function(x) {
  #Read the data
  data <- readxl::read_excel(x)
  #Change the 4th column with filename
  names(data)[4] <- tools::file_path_sans_ext(basename(x))
  #Write the data back
  writexl::write_xlsx(data, x)
})

Answer 1

您可以使用tools::file_path_sans_ext 和tools:.file_ext 组合一个新的输出文件名。在下面的代码中，我将后缀_new 附加到文件扩展名之前的文件名中。

filenames <- list.files(pattern = '\\.xlsx', full.names = TRUE)

lapply(filenames, function(x) {
  #Read the data
  data <- readxl::read_excel(x)
  #Change the 4th column with filename
  y <- tools::file_path_sans_ext(basename(x))
  names(data)[4] <- y
  #Write the data back
  ext <- tools::file_ext(x)
  y <- paste0(y, "_new.", ext)
  writexl::write_xlsx(data, y)
})