depriciate get_hydrofabric

DESCRIPTION

@@ -29,6 +29,7 @@ Imports:
     parallel,
     pbapply,
     rlang,
+    RSQLite,
     rmapshaper,
     rvest,
     sf,

NAMESPACE

@@ -31,7 +31,6 @@ export(download_fdr_fac)
 export(drop_extra_features)
 export(flowpaths_to_linestrings)
 export(flush_prefix)
-export(get_hydrofabric)
 export(get_minimal_network)
 export(gpkg)
 export(hl_to_outlet)
@@ -99,7 +98,6 @@ importFrom(dplyr,tbl)
 importFrom(dplyr,ungroup)
 importFrom(dplyr,vars)
 importFrom(glue,glue)
-importFrom(httr,GET)
 importFrom(httr,RETRY)
 importFrom(httr,progress)
 importFrom(httr,write_disk)
@@ -113,7 +111,6 @@ importFrom(logger,log_level)
 importFrom(methods,as)
 importFrom(nhdplusTools,add_plus_network_attributes)
 importFrom(nhdplusTools,calculate_total_drainage_area)
-importFrom(nhdplusTools,get_boundaries)
 importFrom(nhdplusTools,get_node)
 importFrom(nhdplusTools,get_sorted)
 importFrom(nhdplusTools,get_streamorder)
@@ -132,9 +129,6 @@ importFrom(rmapshaper,ms_simplify)
 importFrom(rvest,html_attr)
 importFrom(rvest,html_nodes)
 importFrom(rvest,read_html)
-importFrom(sbtools,authenticate_sb)
-importFrom(sbtools,item_file_download)
-importFrom(sbtools,item_list_files)
 importFrom(sf,`st_crs<-`)
 importFrom(sf,as_Spatial)
 importFrom(sf,read_sf)

R/hydrofabric_io.R

@@ -140,53 +140,6 @@ read_hydrofabric = function(gpkg = NULL,
 
 }
 
-#' Download Reference Fabric Data by VPU ID
-#' @param VPU a VPU ID
-#' @param type either 'refactor' (default) or 'reference'
-#' @param dir directory path to save data to
-#' @param overwrite should existing files be overwritten? (default = FALSE)
-#' @return file path
-#' @export
-#' @importFrom nhdplusTools get_boundaries
-#' @importFrom dplyr filter slice_min
-#' @importFrom sbtools item_list_files item_file_download authenticate_sb
-#' @importFrom httr GET write_disk progress
-
-get_hydrofabric = function(VPU = "01",
-                           type = "refactor",
-                           dir  = NULL,
-                           overwrite = FALSE) {
-  if (is.null(dir)) {
-    stop("`dir` cannot be NULL", call. = FALSE)
-  }
-
-  if(!VPU %in% get_boundaries()$VPUID){
-    stop(VPU, " is not a valid VPU ID", call. = FALSE)
-  }
-
-  outfile = file.path(dir, paste0(type, "_", VPU, ".gpkg"))
-
-  if (file.exists(outfile) & !overwrite) {
-    return(outfile)
-  } else {
-
-    xx = jsonlite::fromJSON(paste0("https://www.sciencebase.gov/catalog/item/",
-                                   sb_id(type), 
-                                   "?format=json"),
-                  simplifyDataFrame = TRUE)
-
-    url = filter(xx$files, grepl(VPU, xx$files$name))
-
-    unlink(outfile)
-
-    sbtools::item_file_download(sb_id(type), 
-                                names = url$name,  
-                                destinations = outfile, 
-                                overwrite_file = overwrite)
-
-    return(outfile)
-  }
-}
 
 #' Write a hydrofabric gpkg
 #' A hydrofabric consists of a flowpath, catchment,