paste the right message

Author: ldecicco-USGS

R/getWebServiceData.R

@@ -36,7 +36,11 @@ getWebServiceData <- function(obs_url, ...) {
   obs_url <- httr2::req_headers(obs_url,
                                 `Accept-Encoding` = c("compress", "gzip")) 
 
-  message("GET:", obs_url$url) 
+  url_method <- "GET"
+  if(!is.null(obs_url$body)){
+    url_method <- "POST"
+  }
+  message(url_method, ": ", obs_url$url) 
   returnedList <- httr2::req_perform(obs_url)
 
   good <- check_non_200s(returnedList)