В RI хотите найти последний файл xlsx в папке, а затем импортировать данные из этого файла

Question

В RI хотите найти последний файл xlsx в папке, а затем импортировать данные из этого файла.Все файлы имеют одинаковый формат.Я просто становлюсь пустым.Пожалуйста, сообщите правильный код.

CompanyFileNames <- file.info(list.files 
                              (path = "Y:/...Data", 
                               pattern = "*port.xlsx", 
                               full.names = T))

CompanyFilelatest <- subset(CompanyFileNames, mtime == max(mtime))

CompanyFilelatest <- CompanyFilelatest[0]

Companymonthly <- sapply(CompanyFilelatest, 
              read_excel, simplify=FALSE) 
              %>% bind_rows(.id = "id")                         

write.csv(Companymonthly, "Companymonthly.csv")

Answer 1

Вам нужен путь к файлу последней версии, который хранится как имя строки CompanyFilelatest.Извлеките путь к файлу с rownames(), и тогда это должно работать.

CompanyFileNames <- file.info(list.files 
                              (path = getwd(), 
                                pattern = "*.xlsx", 
                                full.names = T))

CompanyFilelatest <- subset(CompanyFileNames, mtime == max(mtime))

CompanyFilelatest <- rownames(CompanyFilelatest) # use rownames not subseting with 0

Companymonthly <- sapply(CompanyFilelatest, 
                         read_excel, simplify=FALSE) %>% bind_rows(.id = "id")                         

write.csv(Companymonthly, "Companymonthly.csv")