Ошибка в file.exists (путь): недопустимый аргумент «file» в R

Примите мои извинения, поскольку я новичок в R. Следующий код используется для обработки нескольких файлов за один раз и размещения вывода в отдельной папке.

require(highfrequency) require(quantmod) require(readxl) input_files1=list("file_path1.xlsx","file_path2.xlsx","file_path3.xlsx") #making list of file paths for(i in length(input_files1)) { bid_df<-read_excel(input_files1[i], sheet = 1, col_names = TRUE, col_types = NULL, na = "", skip = 0) #read_excel takes file path as first argument ask_df<-read_excel(input_files1[i], sheet = 2, col_names = TRUE, col_types = NULL, na = "", skip = 0) trade_df<-read_excel(input_files1[i], sheet = 3, col_names = TRUE, col_types = NULL, na = "", skip = 0) qdata_df <- merge(ask_df, bid_df, by = "TIMESTAMP") qdata_xts_raw<-xts(qdata_df[,-1], order.by=qdata_df[,1]) qdata_xts_m<-mergeQuotesSameTimestamp(qdata_xts_raw, selection = "median") trade_xts_raw <- xts(trade_df[,-1], order.by=trade_df[,1]) trade_xts_m<-mergeTradesSameTimestamp(trade_xts_raw, selection = "median") tqdata=matchTradesQuotes(trade_xts_m,qdata_xts_m) quoted_spread<-tqLiquidity(tqdata,trade_xts_m,qdata_xts_m,type="qs") qs_30<-aggregatets(quoted_spread,FUN="mean",on="minutes",k=30) indexTZ(qs_30) <- "UTC" write.csv(qs_30, file = file.path("output_file_path", paste0("CAN_out", i))) } 

Когда код запускается, он дает следующую ошибку: Ошибка в файле .exists (путь): неверный аргумент «файл». Помогите устранить ошибку и запустить код.

Доступ к элементам списка в пути как input_files1 [[i]]

Interesting Posts
Давайте будем гением компьютера.