approve_all_dl if session is non-interactive, closes #54

R/load.R

@@ -4,7 +4,7 @@
 #' @param dsn character name of a NHD layer
 #' @param file_ext character choice of "shp" for spatial data and
 #' "dbf" or "gpkg" for non-spatial. optional
-#' @param approve_all_dl logical blanket approval to download all missing data
+#' @param approve_all_dl logical blanket approval to download all missing data. Defaults to TRUE if sesson is non-interactive.
 #' @param ... arguments passed to sf::st_read
 #'
 #' @return Spatial simple features object or data frame depending on the dsn
@@ -29,6 +29,10 @@
 #' }
 nhd_load <- function(state, dsn, file_ext = NA, approve_all_dl = FALSE, ...){
 
+  if(!interactive()){
+    approve_all_dl = TRUE
+  }
+
   if(!(file_ext %in% c(NA, "shp", "dbf", "gpkg"))){
     stop(paste0("file_ext must be set to either 'shp' or 'dbf'"))
   }
@@ -128,7 +132,7 @@ nhd_load <- function(state, dsn, file_ext = NA, approve_all_dl = FALSE, ...){
 #' @param dsn data source name
 #' @param file_ext character choice of "shp" for spatial data and
 #' "dbf" for non-spatial. optional
-#' @param approve_all_dl logical blanket approval to download all missing data
+#' @param approve_all_dl logical blanket approval to download all missing data. Defaults to TRUE if sesson is non-interactive
 #' @param force_dl logical force a re-download of the requested data
 #' @param pretty more minimal pretty printing st_read relative to "quiet"
 #' @param ... parameters passed on to sf::st_read
@@ -172,6 +176,10 @@ nhd_plus_load <- memoise::memoise(function(vpu, component = "NHDSnapshot", dsn,
                           file_ext = NA, approve_all_dl = FALSE, force_dl = FALSE,
                           pretty = FALSE, ...){
 
+  if(!interactive()){
+    approve_all_dl = TRUE
+  }
+
   if(!(file_ext %in% c(NA, "shp", "dbf"))){
     stop(paste0("file_ext must be set to either 'shp' or 'dbf'"))
   }

R/network.R

@@ -21,10 +21,10 @@
 #' @param network sf lines collection. optional. See Details section.
 #' @param lakepoly sf polygon.  optional. See Details section.
 #' @param buffer_dist numeric buffer around lat-lon point in dec. deg.
-#' @param lakewise logical. If TRUE, return the terminal reaches of all lakes
+#' @param lakewise logical. If TRUE, return the terminal reaches of all lakes.
 #' in the stream network rather than a single terminal reach of the focal lake.
-#' @param lakesize_threshold numeric above which to count as a lake (ha)
-#' @param approve_all_dl logical blanket approval to download all missing data
+#' @param lakesize_threshold numeric above which to count as a lake (ha).
+#' @param approve_all_dl logical blanket approval to download all missing data. Defaults to TRUE if sesson is non-interactive.
 #' @param ... parameters passed on to sf::st_read
 #'
 #' @export
@@ -68,6 +68,10 @@ terminal_reaches <- function(lon = NA, lat = NA, buffer_dist = 0.01,
                              network = NA, lakepoly = NA, lakewise = FALSE,
                              lakesize_threshold = 4, approve_all_dl = FALSE, ...){
 
+  if(!interactive()){
+    approve_all_dl = TRUE
+  }
+
   if(all(is.na(network))){
     pnt         <- st_sfc(st_point(c(lon, lat)))
     st_crs(pnt) <- st_crs(nhdR::vpu_shp)
@@ -185,6 +189,10 @@ terminal_reaches <- function(lon = NA, lat = NA, buffer_dist = 0.01,
 leaf_reaches <- function(lon = NA, lat = NA, network = NA,
                          approve_all_dl = FALSE, ...){
 
+  if(!interactive()){
+    approve_all_dl = TRUE
+  }
+
   if(all(is.na(network))){
     pnt <- sf::st_sfc(sf::st_point(c(lon, lat)))
     sf::st_crs(pnt) <- sf::st_crs(nhdR::vpu_shp)
@@ -268,6 +276,10 @@ extract_network <- function(lon = NA, lat = NA, lines = NA,
                             buffer_dist = 0.01, maxsteps = 3,
                             approve_all_dl = FALSE){
 
+  if(!interactive()){
+    approve_all_dl = TRUE
+  }
+
   if(length(lon) > 1 | length(lat) > 1){
     stop("extract_network only accepts a single lon-lat pair.")
   }

R/query.R

@@ -6,7 +6,7 @@
 #' @param poly sfc polygon. optional
 #' @param dsn character data source
 #' @param buffer_dist numeric buffer in units of coordinate degrees
-#' @param approve_all_dl logical blanket approval to download all missing data
+#' @param approve_all_dl logical blanket approval to download all missing data. Defaults to TRUE if sesson is non-interactive.
 #' @param ... parameters passed on to sf::st_read
 #' @examples \dontrun{
 #' library(sf)
@@ -45,6 +45,10 @@ nhd_plus_query <- function(lon = NA, lat = NA, poly = NA,
                            dsn, buffer_dist = 0.05, approve_all_dl = FALSE,
                            ...){
 
+  if(!interactive()){
+    approve_all_dl = TRUE
+  }
+
   if(all(!is.na(c(lon, lat, poly)))){
     stop("Must specify either lon and lat or poly but not both.")
   }