Вы можете сделать:
unzip('Path/to/Patrimonio.zip')
file_names <- list.files(pattern = "\\.csv$", full.names = TRUE)
list_files <- lapply(file_names, read.csv, sep = "|")
Это даст вам список фреймов данных в list_files
, вы можете сохранить их в списке или, если вам нужны отдельные фреймы данных, мы можем назвать этот список и использовать list2env
чтобы получить все данные отдельно.
names(list_files) <- sub("\\.csv", "", basename(file_names))
list2env(list_files, .GlobalEnv)