R/save_tables.R

In Maritimes/Mar.datawrangling: A suite of tools for extracting, filtering and aggregating data from the Maritimes fisheries science databases

#' @title save_tables
#' @description This function takes a snapshot of all of the tables of a database as they currently
#' exist in your environment, and stores them in a new environment (i.e.'dw').
#' @param db default is \code{NULL}. This identifies the dataset you are working 
#' with.
#' @return nothing
#' @family general_use
#' @author  Mike McMahon, \email{Mike.McMahon@@dfo-mpo.gc.ca}
#' @export
save_tables <- function(db=NULL){
  if (is.null(db)){
    cat("\nNothing saved.  Please specify the db.")
  } else{
    assign("dw", value = new.env(), envir = .GlobalEnv)
    sapply(ds_all[[db]]$tables, USE.NAMES = F, simplify = TRUE, function(x) {
      assign(paste0("tmp_",x),value = get(x), envir = dw)
    }
    ) 
  }
  return(invisible())
}