Added elev/Travel time configs

workspace/R/config.R

@@ -4,6 +4,7 @@ library(sf)
 library(hyRefactor)
 library(tidyr)
 library(hyfabric)
+library(mapview)
 
 if(!exists("rpu_code")) {
   rv <- get_rpu_dependent_vars()
@@ -33,27 +34,16 @@ options(scipen = 9999)
 crs <- 5070
 data_paths <- jsonlite::read_json(file.path("cache", "data_paths.json"))
 
-# not used?
-# huc12_xWalk <- file.path(data_paths$nhdplus_dir, "CrosswalkTable_NHDplus_HU12.csv")
-# HUC12 <- file.path(data_paths$nhdplus_dir, "HUC12.rds")
-
-nav_gpkg <- file.path("cache", paste0("reference_", VPU,".gpkg"))
-
-# Defined at various points for HI workflow
-raw_wbd <- paste0("HU12_", VPU) # Raw HUC12
-gage_loc <- paste0("GageLoc_", VPU) # HI GageLoc
-
-### Layer Names used broadly ###
-TE <- paste0("TE_", VPU) # Thermo-electric 
-NID_layer <- paste0("NID_", VPU) # Raw NID points
-
-gage_events_layer <- paste0("gage_events_", VPU) # gages with flowline index information for possible splitting
-
+# Defined and used broadly
 nhd_flowline <- "nhd_flowline"
 nhd_catchment <- "nhd_catchment"
 
+# Created and/or used during 02_Navigate
+elev_diff <- 500 # Max difference in elevation within a single segment/POI
+tt_diff <- 24 # Max number of hours between adjacent POIS
+nav_gpkg <- file.path("cache", paste0("reference_", VPU,".gpkg"))
 xwalk_layer <- paste0("HUC12_nhd_", VPU) # HUC12 - nhdcat crosswalk, built in Nav for VPU 20
-nav_poi_layer <- paste0("pois_", VPU) # Rolling Nav POI layer added to/modified througout nav workflow
+nav_poi_layer <- paste0("POIs_tmp_", VPU) # Rolling Nav POI layer added to/modified througout nav workflow
 WBs_layer <-  paste0("WB_", VPU) # Waterbodies within VPU
 poi_moved_layer <- paste0("POIs_mv_", VPU) # POIs moved from original COMID assignment
 nsegments_layer <- paste0("nsegment_", VPU) # Minimally-sufficient network dissolved by POI_ID
@@ -61,6 +51,8 @@ pois_all_layer <- paste0("POIs_", VPU) # All POIs binded together
 poi_xwalk_layer <- paste0("poi_xwalk_layer_", VPU) # POIs that changed COMIDS during the navigate part of the workflow
 final_poi_layer <- paste0("final_POIS_", VPU)
 
+
+# Settings for refactor workflow
 split_meters <- 10000
 combine_meters <- 1000
 min_da_km <- 20
@@ -96,4 +88,16 @@ missing_cats <- paste0("miss_cats_", VPU)
 # only used in HI?
 inc_pois_layer <- paste0("inc_POIs_", VPU) # layer of POIs used to derive first cut of segments
 
+# Defined at various points for HI workflow
+#raw_wbd <- paste0("HU12_", VPU) # Raw HUC12
+#gage_loc <- paste0("GageLoc_", VPU) # HI GageLoc
+
+### Layer Names used broadly ###
+#TE <- paste0("TE_", VPU) # Thermo-electric 
+#NID_layer <- paste0("NID_", VPU) # Raw NID points
+#gage_events_layer <- paste0("gage_events_", VPU) # gages with flowline index information for possible splitting
+
+# not used?
+# huc12_xWalk <- file.path(data_paths$nhdplus_dir, "CrosswalkTable_NHDplus_HU12.csv")
+# HUC12 <- file.path(data_paths$nhdplus_dir, "HUC12.rds")
 

[Bock, Andy]

added new thresholds for elev and tt breaks.

[Bock, Andy]

re-orged a bit.