R/import_creel_series.R

In HoldenJe/gfsR: Compilation of R functions for use with the GFS FN data

#' import_creel_series: Imports a series of DATA.ZIP files
#'
#' @param datazips
#'
#' @return list of FN2 Tables
#' @export
#'
#' @examples
#' \dontrun{
#' cr1 <- import_creel_series("SC97_WL1/DATA.ZIP", "SC96_WL11/DATA.ZIP")
#' }
#'
#'

import_creel_series <- function(datazips) {
  fn011 <- data.frame()
  fn012 <- data.frame()
  fn022 <- data.frame()
  fn023 <- data.frame()
  fn024 <- data.frame()
  fn025 <- data.frame()
  fn026 <- data.frame()
  fn028 <- data.frame()
  fn111 <- data.frame()
  fn112 <- data.frame()
  fn121 <- data.frame()
  fn123 <- data.frame()
  fn124 <- data.frame()
  fn125 <- data.frame()
  fn126 <- data.frame()
  fn127 <- data.frame()
  
  suppressWarnings(suppressMessages(fndat <-
                                      lapply(datazips, import_fn_creel)))
  
  
  for (i in 1:length(fndat)) {
    fn011 <- dplyr::bind_rows(fn011, fndat[[i]]$FN011)
    fn012 <- dplyr::bind_rows(fn012, fndat[[i]]$FN012)
    fn022 <- dplyr::bind_rows(fn022, fndat[[i]]$FN022)
    fn023 <- dplyr::bind_rows(fn023, fndat[[i]]$FN023)
    fn024 <- dplyr::bind_rows(fn024, fndat[[i]]$FN024)
    fn025 <- dplyr::bind_rows(fn025, fndat[[i]]$FN025)
    fn026 <- dplyr::bind_rows(fn026, fndat[[i]]$FN026)
    fn028 <- dplyr::bind_rows(fn028, fndat[[i]]$FN028)
    fn111 <- dplyr::bind_rows(fn111, fndat[[i]]$FN111)
    fn112 <- dplyr::bind_rows(fn112, fndat[[i]]$FN112)
    fn121 <- dplyr::bind_rows(fn121, fndat[[i]]$FN121)
    fn123 <- dplyr::bind_rows(fn123, fndat[[i]]$FN123)
    fn124 <- dplyr::bind_rows(fn124, fndat[[i]]$FN124)
    fn125 <- dplyr::bind_rows(fn125, fndat[[i]]$FN125)
    fn126 <- dplyr::bind_rows(fn126, fndat[[i]]$FN126)
    fn127 <- dplyr::bind_rows(fn127, fndat[[i]]$FN127)
  }
  
  all_FN_Data <- list(
    FN011 = fn011,
    FN012 = fn012,
    FN022 = fn022,
    FN023 = fn023,
    FN024 = fn024,
    FN025 = fn025,
    FN026 = fn026,
    FN028 = fn028,
    FN111 = fn111,
    FN112 = fn112,
    FN121 = fn121,
    FN123 = fn123,
    FN124 = fn124,
    FN125 = fn125,
    FN126 = fn126,
    FN127 = fn127
  )
  
  lapply(
    names(all_FN_Data),
    FUN = function(x) {
      usethis::ui_done(paste0(x, " has been imported"))
    }
  )
  
  return(all_FN_Data)
}