diff --git a/workspace/02_NHD_navigate.Rmd b/workspace/02_NHD_navigate.Rmd index b26ff6b7a8ae5cff6cb8dcf97d7fad83a1c0c90c..b930c83d041dee33f4e108730267c5d9b7b88d4b 100644 --- a/workspace/02_NHD_navigate.Rmd +++ b/workspace/02_NHD_navigate.Rmd @@ -355,7 +355,7 @@ if(all(is.na(tmp_POIs$Type_Elev))) { filter(sum(LENGTHKM) > (split_meters/1000)) %>% ungroup() - if(nrow(elev_pois_init == 0)){ + if(nrow(elev_pois_init > 0)){ # Iterate through segs that need splitting for (i in c(1:max(elev_pois_init$iter))){ @@ -439,7 +439,8 @@ if(all(is.na(tmp_POIs$Type_Elev))) { nhd <- read_sf(nav_gpkg, nhd_flowline) } -mapview(filter(tmp_POIs, Type_Elev == 1), layer.name = "Elevation break POIs", col.regions = "blue") +if(!all(is.na(tmp_POIs$Type_Elev))) + mapview(filter(tmp_POIs, Type_Elev == 1), layer.name = "Elevation break POIs", col.regions = "blue") ``` ```{r Time of travel POIs}