Address MR comments

workspace/00_get_data.Rmd

@@ -66,7 +66,7 @@ if(!file.exists(SWIM_points_path)) {
   if(is.null(sbtools::current_session()))
     authenticate_sb()
   
-  item <- facet_sb("5ebe92af82ce476925e44b8f", data_dir)
+  item <- retrieve_sb("5ebe92af82ce476925e44b8f", data_dir)
 
   g3gf <- "gages3GFinfo.dbf"
   
@@ -216,7 +216,7 @@ if(!file.exists(nhdplus_dir)) {
 
   nhdplus_path(nhdplus_gdb)
 
-  suppressWarnings(staged_nhdplus <- stage_national_data())
+  suppressWarnings(staged_nhd <- stage_national_data())
 
   x <- tryCatch(
     download_nhdplusv2(islands_dir, "https://s3.amazonaws.com/edap-nhdplus/NHDPlusV21/Data/NationalData/NHDPlusV21_NationalData_Seamless_Geodatabase_HI_PR_VI_PI_03.7z"),
@@ -278,14 +278,14 @@ if(!file.exists(waterbodies_path)) {
 out_list <- c(out_list, list(waterbodies_path = waterbodies_path))
 ```
 
-```{r islands cats}
+```{r full cats}
 fullcat_path <- file.path(nhdplus_dir, "nhdcat_full.rds")
 islandcat_path <- file.path(islands_dir, "nhdcat_full.rds")
 
 # Create full cat dataset
 if(!file.exists(islandcat_path)){
   
-  cat_tab <- cat_rpu(staged_nhdplus$catchment, nhdplus_gdb)
+  cat_tab <- cat_rpu(staged_nhd$catchment, nhdplus_gdb)
   saveRDS(cat_tab, fullcat_path)
   
   island_cats <- file.path(islands_dir, "NHDPlusNationalData/nhdplus_catchment.rds")