按照论坛批量处理csv文件的方法处理word。总是会报错
问题相关代码,请勿粘贴截图
library(docxtractr)
path <- "C:/r4r/PLFA/try/"
files <- list.files(path=path, pattern="*.docx")
for(file in files)
{
perpos <- which(strsplit(file, "")[[1]]==".")
assign(
gsub(" ","",substr(file, 1, perpos-1)),
read_docx(paste(path,file)))
}
Error: Cannot find 'C:/r4r/PLFA/try/ 1.docx’