check

R/arcrest_tools.R

@@ -91,7 +91,12 @@ query_usgs_arcrest <- function(AOI = NULL,  ids = NULL,
 
   length_ids <- length(ids)
 
-  chunk_size <- 1000
+  if(is.null(ids) | length(ids) == 0) {
+    "nothing found for filter or web service failed"
+    return(NULL)
+  }
+
+  chunk_size <- 2000
   ids <- split(ids, ceiling(seq_along(ids)/chunk_size))
 
   out <- rep(list(list()), length(ids))

R/get_hydro.R

@@ -200,22 +200,25 @@ get_nwis <- function(AOI = NULL, t_srs = NULL, buffer = 20000){
 #' hydrolocation <- get_3dhp(AOI = AOI, type = "hydrolocation")
 #' waterbody <- get_3dhp(AOI = AOI, type = "waterbody")
 #'
+#' if(!is.null(waterbody) & !is.null(flowlines) & !is.null(hydrolocation)) {
 #' plot(sf::st_geometry(waterbody), col = "lightblue", border = "lightgrey")
 #' plot(sf::st_geometry(flowlines), col = "blue", add = TRUE)
-#' plot(sf::st_geometry(hydrolocation), col = "grey", pch = "+", add = TRUE)
+#' plot(sf::st_geometry(hydrolocation), col = "grey", pch = "+", add = TRUE) }
 #'
 #' # given mainstem ids from any source, can query for them in ids.
 #'
 #' CO <- get_3dhp(ids = "https://geoconnex.us/ref/mainstems/29559",
 #'                type = "flowline")
 #'
-#' plot(sf::st_geometry(CO), col = "blue")
+#' if(!is.null(CO))
+#'   plot(sf::st_geometry(CO), col = "blue")
 #'
 #' # get all the waterbodies along the CO river
 #' CO_wb <- get_3dhp(ids = unique(CO$waterbodyid3dhp), type = "waterbody")
 #'
+#' if(!is.null(CO_wb)) {
 #' plot(sf::st_geometry(CO_wb[grepl("Powell", CO_wb$gnisidlabel),]),
-#'      col = "blue", border = "NA")
+#'      col = "blue", border = "NA") }
 #'
 #' # given universamreferenceid (reachcodes), can query for them but only
 #' # for hydrolocations. This is useful for looking up mainstem ids.