Move message

ldecicco-USGS · ldecicco-USGS · commit 89ccf9c62235 · 2026-01-13T07:32:36.000-06:00
diff --git a/R/get_ogc_data.R b/R/get_ogc_data.R
@@ -32,6 +32,8 @@ get_ogc_data <- function(args,
     no_paging <- FALSE
   }
   
+  message("Requesting:\n", req$url)
+  
   if(no_paging){
     return_list <- get_csv(req, limit = args[["limit"]])
   } else {
diff --git a/R/walk_pages.R b/R/walk_pages.R
@@ -5,8 +5,6 @@
 #' @noRd
 #' @return data.frame with attributes
 walk_pages <- function(req){
-  
-  message("Requesting:\n", req$url)
 
   resps <- httr2::req_perform_iterative(req, 
                                         next_req = next_req_url, 
@@ -98,7 +96,6 @@ next_req_url <- function(resp, req) {
 
 get_csv <- function(req, limit){
 
-  message("Requesting:\n", req$url)
   skip_geo <- grepl("skipGeometry=true", req$url, ignore.case = TRUE)
   resp <- httr2::req_perform(req)
 

Original file line number	Diff line number	Diff line change
`@@ -32,6 +32,8 @@ get_ogc_data <- function(args,`
`32`	`32`	`no_paging <- FALSE`
`33`	`33`	`}`
`34`	`34`
	`35`	`+ message("Requesting:\n", req$url)`
	`36`	`+`
`35`	`37`	`if(no_paging){`
`36`	`38`	`return_list <- get_csv(req, limit = args[["limit"]])`
`37`	`39`	`} else {`