mhweber

names <- st_layers('location/geopackage.gpkg')$name
names <- names[grep("points",names)] # grep for something
result <- purrr::map(names,~read_sf(dsn='location/geopackage.gpkg',layer=.))
result <- bind_rows(result)
glimpse(result)

mhweber

# in this example I'm looking for files with the name patter 'filename' that happen to be .zip files
mydir <- "my/dir/space"
pattern <- "filename"
FileList <- list.files(path = mydir, pattern = pattern, full.names = TRUE)
result <- purrr::map(FileList,~read_csv(.))
result <- bind_rows(result)
write_parquet(result,'mydir/myfile.parquet')