Как найти точное количество листов во всех файлах Excel - PullRequest
Новая
       6

Как найти точное количество листов во всех файлах Excel

0 голосов
/ 13 января 2020

Я хочу найти количество листов во всех файлах Excel. Это то, что я сделал. 

file_list <- list.files(pattern = '.xlsx',recursive = T)
head(file_list)

[1] "one.xlsx"        [2] "two.xlsx"        
[3] "three.xlsx"    [4] "four.xlsx"
[5] "five.xlsx"

Итак, эта переменная file_list содержит около 63 файлов Excel. 

for (num in file_list) {
   length( excel_sheets( num ) )
}

Что приводит к NULL результату.

Но когда я делаю это вручную, я получаю счет. Например, 

length( excel_sheets("../my_excel_directory/one.xlsx") )

[1] 2

Спасибо за помощь заранее!

1 Ответ

0 голосов
/ 13 января 2020

Использование sapply: 

file_list <- list.files(pattern = '.xlsx',recursive = TRUE, full.names = TRUE)

length(unlist(sapply(file_list, readxl::excel_sheets)))
...