nits

workspace/00_get_data.Rmd

@@ -278,7 +278,7 @@ if(!file.exists(ref_cat)){
 
   for (vpu in possible_vpu){
     vpu_gpkg <- paste0(vpu, "_reference_features.gpkg")
-    sbtools::item_file_download("61295190d34e40dd9c06bcd7", names = vpu_gpkg, 
+    sbtools::item_file_download("6317a72cd34e36012efa4e8a", names = vpu_gpkg, 
                                 destinations = file.path(ref_fab_path, vpu_gpkg))
   }
   

workspace/02_NHD_navigate.Rmd

@@ -260,7 +260,7 @@ if(!"Type_WBOut" %in% names(tmp_POIs)) {
   tmp_POIs <- read_sf(temp_gpkg, nav_poi_layer)
   nhd <- read_sf(nav_gpkg, nhd_flowline)
   ref_WB <- read_sf(temp_gpkg, WBs_layer)
-  resops_POIs_df <- read.csv(file.path("data/reservoir_Data", paste0("resops_POIs_",vpu,".csv")))
+  resops_POIs_df <- read.csv(file.path("data/reservoir_Data", paste0("resops_POIs_", VPU,".csv")))
 }
 
 mapview(filter(tmp_POIs, !is.na(Type_WBOut)), layer.name = "Waterbody outlet POIs", col.regions = "red")

workspace/R/NHD_navigate.R

@@ -1135,7 +1135,7 @@ wbin_POIcreation <- function(nhd, WBs_VPU, data_paths, crs,
     # Drive the inlet events
     nhd_inlet <- filter(nhd_WBs, !COMID %in% wb_outlet_events$COMID)
     
-    if(unique(nhd$VPUID) == "12"){
+    if("12" %in% unique(nhd$VPUID)){
       nhd_inlet <- rbind(nhd_inlet, filter(nhd_WBs, COMID == 1304709))
     }