Importar archivos por lotes en carpetas usando lenguaje R

#Leer por lotes los archivos de comprobantes electrónicos en la carpeta

Nombre de archivo y archivos lt-list(" D:\ \ ​​​​Work \ \ 190304 \ \ Comprobante electrónico")

Ruta. ? & lt-c("D:\\ Trabajo \\190304\\Bono electrónico\\ ")

for (i en 1:longitud(nombre de archivo)){

? nombre<-gsub(".csv","",nombre de archivo[i])

? asignar(nombre,

read.csv(paste0(ruta, nombres_archivo[1]),

? encabezado = TRUE, stringsAsFactors = FALSE))

}

bd_mob0 & lt-data.frame()

? BD _ mob 1<- data.frame()

? for (i in 1:length(filename)){

excel_path & lt-paste0(path1, file_names[i])?

Nombre de la hoja de trabajo<- excel_sheets(excel_path)[6]?

bd_mob0<-cbind(read_excel(excel_path,sheet=sheet_name,skip=3),

?account period=substr(file_names[I],18, 25)) #Agregar cuenta período.

BD_mob1<-rbind(bd_mob1, bd_mob0)

? }