From 22105b7833d7210628d26eaec4325d29f01fac2d Mon Sep 17 00:00:00 2001
From: David Blodgett <dblodgett@usgs.gov>
Date: Thu, 18 May 2023 08:48:56 -0500
Subject: [PATCH] nits
---
workspace/00_get_data.Rmd | 2 +-
workspace/02_NHD_navigate.Rmd | 2 +-
workspace/R/NHD_navigate.R | 2 +-
3 files changed, 3 insertions(+), 3 deletions(-)
diff --git a/workspace/00_get_data.Rmd b/workspace/00_get_data.Rmd
index 8678f8c..a583312 100644
--- a/workspace/00_get_data.Rmd
+++ b/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))
}
diff --git a/workspace/02_NHD_navigate.Rmd b/workspace/02_NHD_navigate.Rmd
index e2d9ec9..f5eb821 100644
--- a/workspace/02_NHD_navigate.Rmd
+++ b/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")
diff --git a/workspace/R/NHD_navigate.R b/workspace/R/NHD_navigate.R
index 02f8f8c..c40dafe 100644
--- a/workspace/R/NHD_navigate.R
+++ b/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))
}
--
GitLab