Removed cat_rpu function

workspace/02_NHD_navigate.Rmd

@@ -36,21 +36,6 @@ nhd_rds <- fix_headwaters(staged_nhd$flowline, gsub("flowline.rds", "flowline_up
 
 nhdplusTools_data_dir(dir = data_paths$nhdplus_dir)
 atts <- readRDS(file.path(data_paths$nhdplus_dir, "nhdplus_flowline_attributes.rds"))
-
-# Create full cat dataset
-if(!file.exists(file.path(data_paths$nhdplus_dir, cat_table))){
-  if(substr(rpu_code, 1, 2) == "20") {
-    nhd_gdb <- data_paths$islands_gdb
-    cat_rds <- readRDS(file.path(data_paths$islands_dir, "nhdplus_catchment.rds"))
-  } else {
-    nhd_gdb <- data_paths$nhdplus_gdb
-    cat_rds <- readRDS(file.path(data_paths$nhdplus_dir, "nhdplus_catchment.rds"))
-  }
-  
-  cat_tab <- cat_rpu(cat_rds, nhd_gdb, vpu)
-  
-  saveRDS(cat_tab, file.path(data_paths$nhdplus_dir, cat_table))
-} 
 ```
 
 ```{r huc12 POIs}