elevation case sensitivity fix in non denritic

5bfdb727 · Blodgett, David L. · 9808961b · 5bfdb727
Commit 5bfdb727 authored 3 years ago by Blodgett, David L.
--- a/workspace/07-2_NonDend.Rmd
+++ b/workspace/07-2_NonDend.Rmd
@@ -57,7 +57,7 @@ full_nhd <- full_nhd %>%
 vpu_WBD <- readRDS(file.path(data_paths$nhdplus_dir, "HUC12.rds")) %>%
  filter(grepl(paste0("^", grep_exp, ".*"), .data$HUC_12))

-elev <- data_paths$elev_cm[grepl(paste0("Ned", vpu), data_paths$elev_cm)]
+elev <- data_paths$elev_cm[grepl(paste0("Ned", vpu), data_paths$elev_cm, ignore.case = TRUE)]

 nhd <- st_transform(read_sf(gf_gpkg, nhd_flowline), crs)
 cats <- st_transform(read_sf(gf_gpkg, nhd_catchment), crs)