import multiple files in r

[nehamoopen]

import excel files

excel_files <- data.frame(files = list.files("data/", pattern='*.xlsx', full.names = TRUE)) %>% mutate(., df_name = str_extract(files, '(?<=data/)[^\.]+'))

for(i in 1:length(excel_files$files)){

assign(excel_files$df_name[i], read_excel(excel_files$files[i]))

}

import csv files

csv_files <- data.frame(files = list.files("data/", pattern='*.csv', full.names = TRUE)) %>% mutate(., df_name = str_extract(files, '(?<=data/)[^\.]+'))

for(i in 1:length(csv_files$files)){

assign(csv_files$df_name[i], read_csv(csv_files$files[i]))

}