Needed to fix one thing

workspace/02_NHD_navigate.Rmd

@@ -40,12 +40,10 @@ atts <- readRDS(file.path(data_paths$nhdplus_dir, "nhdplus_flowline_attributes.r
 # 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
-    fl <- read_sf(data_paths$islands_gdb, "NHDFlowline_Network") %>%
-      align_nhdplus_names()
+    nhd_gdb <- data_paths$islands_gdb
     cat_rds <- readRDS(file.path(data_paths$islands_dir, "nhdplus_catchment.rds"))
   } else {
-    fl <- read_sf(data_paths$nhdplus_gdb, "NHDFlowline_Network")
+    nhd_gdb <- data_paths$nhdplus_gdb
     cat_rds <- readRDS(file.path(data_paths$nhdplus_dir, "nhdplus_catchment.rds"))
   }