#r #extract #docx
#r #извлечь #docx
Вопрос:
Я создал функцию извлечения таблиц из файлов docx и успешно объединил их в один набор данных с образцом папки из 4 файлов docx.
Затем я связал функцию с папкой с 500 файлами, и внезапно возникла ошибка.
> lapply(files, FUN=docTodata)
Error: Cannot find 'marginversion1.docx'
Это код, и я опускаю здесь середину пути, в котором указано мое имя.
# read all files in a directory
files<-list.files(path="C:/Users/...../files")
print(files)
При печати файлов она успешно печатает все имена файлов в папке!!!!! но lapply () не считывает файлы.
Комментарии:
1. Нет, он по-прежнему выдает ту же ошибку.
2. Если вы можете показать небольшой воспроизводимый пример, его можно протестировать
3. Я добавил два примера, которые я создал.. (но не знаю, как связать файлы docx с here)
4. Вы пробовали
for
цикл, т.Е.out <- vector('list', length(files)); for(i in seq_along(files)) out[[i]] <- docTodata(files[i])
5. Ваш рабочий каталог идентичен тому, который содержит файлы? В противном случае, возможно, вам нужно использовать
files<-list.files(path="C:/Users/...../files", full.names = TRUE)