R/helper_functions.R

In Texas-Policy-Lab/texas_child_care_deserts: API for Texas Childcare data

#' @title Create data folder structure
#' @param root string. The root directory
#' @param pth list. A list of paths to create in the root directory
create_folder_str <- function(pths) {

  lapply(pths, function(pth) {

    if(!dir.exists(pth)) {
      dir.create(pth, recursive = TRUE)
    }
  })
}

#' @title Load environment
#' @description Loads the saved environment
#' @param pth string. Path the the environment
#' @export
load_env <- function (pth) {

  load(pth)

  for (i in names(env)) {
    assign(i, env[[i]], envir = .GlobalEnv)
  }

}