fix up examples

DOI-USGS · Aug 29, 2020 · e168644 · e168644
1 parent d51c1ff
commit e168644
Show file tree

Hide file tree

Showing 8 changed files with 49 additions and 58 deletions.
diff --git a/R/get_nldi.R b/R/get_nldi.R
@@ -105,14 +105,12 @@ type_check <- function(type) {
 #' nldi_nwis <- list(featureSource = "nwissite", featureID = "USGS-05428500")
 #'
 #' navigate_nldi(nldi_feature = nldi_nwis,
-#'               mode = "upstreamTributaries",
-#'               data_source = "") %>%
+#'               mode = "upstreamTributaries") %>%
 #'   st_geometry() %>%
 #'   plot()
 #'
 #' navigate_nldi(nldi_feature = nldi_nwis,
-#'               mode = "UM",
-#'               data_source = "") %>%
+#'               mode = "UM") %>%
 #'   st_geometry() %>%
 #'   plot(col = "blue", add = TRUE)
 #'
@@ -148,7 +146,10 @@ navigate_nldi <- function(nldi_feature, mode = "upstreamMain",
   }
 
   # For backward compatibility
-  if(data_source == "flowline") data_source <- "flowlines"
+  if(data_source == "flowline" | data_source == "") {
+    data_source <- "flowlines"
+    warning("data source specified as flowline or '' is deprecated")
+  }
 
   query <- paste(nldi_feature[["featureSource"]],
                  nldi_feature[["featureID"]],

diff --git a/docs/articles/nhdplusTools.html b/docs/articles/nhdplusTools.html
diff --git a/docs/news/index.html b/docs/news/index.html
diff --git a/docs/pkgdown.yml b/docs/pkgdown.yml
@@ -6,7 +6,7 @@ articles:
   nhdplusTools: nhdplusTools.html
   plot_nhdplus: plot_nhdplus.html
   point_indexing: point_indexing.html
-last_built: 2020-08-29T18:42Z
+last_built: 2020-08-29T19:12Z
 urls:
   reference: https://usgs-r.github.io/nhdplusTools//reference
   article: https://usgs-r.github.io/nhdplusTools//articles

diff --git a/docs/reference/navigate_nldi-1.png b/docs/reference/navigate_nldi-1.png