From a50d86efdfab3569ad317c23ca9a5c61051187ed Mon Sep 17 00:00:00 2001
From: Beaudette <dylan.beaudette@usda.gov>
Date: Fri, 6 Sep 2024 10:03:21 -0700
Subject: [PATCH] quiet down unnecessary messages

---
 R/seriesExtent.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/seriesExtent.R b/R/seriesExtent.R
index c693637d..83ab78cb 100644
--- a/R/seriesExtent.R
+++ b/R/seriesExtent.R
@@ -109,11 +109,11 @@ seriesExtent <- function(s, type = c('vector', 'raster'), timeout = 60,
   tf <- tempfile(fileext = '.tif')
   
   # download GeoTiff file
-  res <- try(curl::curl_download(url = u, destfile = tf, quiet = TRUE, handle = ch))
+  res <- try(curl::curl_download(url = u, destfile = tf, quiet = TRUE, handle = ch), silent = TRUE)
   
   # trap errors
   if (inherits(res, 'try-error')) {
-    message(res[1])
+    # message(res[1])
     message('no data returned')
     return(NULL)
   }