Read and combine all files in a directory and write back

ReadZipsWriteParquet.r

# 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')