One mapview change

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}