read_zip_rds.R

read_zip_rds <- function(tar) {
  files <- unzip(tar, list = TRUE)$Name
  p <- progressr::progressor(along = 1:length(files))
  purrr::map(files, function(file) {
    p()
    con <- gzcon(unz(tar, file))
    x <- readRDS(con)
    close(con)
    x
  })
}