R在.xlsx文件中查找和替换文本

Question

所以我的任务很简单，我想用 R 来解决这个问题。我在一个文件夹中有数百个 excel 文件 (.xlsx)，我想替换一个特定的文本而不改变工作表的格式并保留单元格中的其余文本，例如：

要查找的文本： F13 A

替换为： F20

当前单元格中的文本： F13 2019 年

期望的结果： F20 2019 年

我用谷歌搜索了很多，但没有找到合适的东西，尽管这似乎是一项常见的任务。我有一个使用 Powershell 的解决方案，但速度很慢，我不敢相信没有简单的方法可以使用 R。我确定之前有人遇到过同样的问题，我会接受任何建议。

Answer 1

你可以试试：

text_to_look <- 'F13 A'
text_to_replace <- 'F20'
all_files <- list.files('/path/to/files', pattern = '\\.xlsx$', full.names = TRUE)

lapply(all_files, function(x) {
     df <- openxlsx::read.xlsx(x)
     #Or use readxl package
     #df <- readxl::read_excel(x)
     df[] <- lapply(df, function(x) {x[grep(text_to_look, x)] <- text_to_replace;x})
     openxlsx::write.xlsx(df, basename(x))
})