diff --git a/workspace/02_NHD_navigate.Rmd b/workspace/02_NHD_navigate.Rmd index 5541e1c2d2413db42263a19500d1842907f4902a..77e4686d676f70436192b302fb9ce7fa02cc6e12 100644 --- a/workspace/02_NHD_navigate.Rmd +++ b/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")) }