R语言如何批量读取Word文件

Question

按照论坛批量处理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’

求一个批量处理Word文件的办法！！感谢！！