R/readAllCTZIP.R

In EBukin/tradeAnalysis-pack: Set of functions for trade data analysis

#' Reading all CT zip achive in one folder
readAllCTZIP <-
  function(folder, parallel = FALSE, delete = TRUE, ...) {
    require(stringr)
    
    files <- listCTdata(folder)
    
    data <-
      plyr::ddply(
        .data = files,
        .variables = .(name),
        .fun = function(x) {
          readCTZIP(file = x$name, folder)
        },
        .parallel = parallel,
        .progress = "text"
      ) %>%
      tbl_df()
    
    data
    
  }