R/load.R

In jsta/sparrow: SPARROW tools

#' Load Enhanced River Reach Data
#'
#' @description Load files from local file system
#' @param version_id character database version string
#' @param format character choice of rds or dbf
#' @param fpath file.path optionally specify custom location of rds file
#' @export
#' @importFrom foreign read.dbf
#' @examples \dontrun{
#' erf  <- erf_load("1")
#' }
erf_load <- function(version_id, format = "rds", fpath = NA){

  if(format == "rds"){
    if(!is.na(fpath)){
        readRDS(fpath)
    }else{
        rds_path <- paste0(cache_path(), "erf_", version_id, ".rds")
        stop_if_not_exists(rds_path)
        readRDS(rds_path)
    }
  }else{
    if(!is.na(fpath)){
      foreign::read.dbf(fpath)
    }else{
      dbf_path <- file.path(cache_path(), version_id, "ARC.dbf")
      stop_if_not_exists(dbf_path)
      foreign::read.dbf(dbf_path)
    }
  }
}

#' Load phosphorus data
#'
#' @description Load files from local file system
#' @param version_id character database version string
#' @param format character choice of rds
#' @param fpath file.path optionally specify custom location of rds file
#' @export
#' @importFrom rappdirs user_data_dir
#' @examples \dontrun{
#' p  <- p_load("1")
#' }
p_load <- function(version_id, format = "rds", fpath = NA){

  if(!is.na(fpath)){
    readRDS(fpath)
  }else{
    rds_path <- paste0(cache_path(), "p_", version_id, ".rds")
    stop_if_not_exists(rds_path)
    readRDS(rds_path)
  }
}