silence try() #309

ncss-tech · Oct 3, 2023 · 4e384cf · 4e384cf
1 parent fd42e57
commit 4e384cf
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/ISSR800.R b/R/ISSR800.R
@@ -161,10 +161,10 @@ ISSR800.wcs <- function(aoi, var, res = 800, quiet = FALSE) {
   if (!is.null(var.spec$rat)) {
 
     # get rat
-    rat <- try(read.csv(var.spec$rat, stringsAsFactors = FALSE), silent = quiet)
+    rat <- try(suppressWarnings(read.csv(var.spec$rat, stringsAsFactors = FALSE)), silent = TRUE)
 
     if (inherits(rat, 'try-error')) {
-      message("Failed to download RAT from ", var.spec$rat, "; returning non-categorical grid")
+      message("\nFailed to download RAT from ", var.spec$rat, "; returning integer grid")
       return(r)
     }