add quiet to message

jamiemkass · jamiemkass · commit 73c02e5754ca · 2024-12-18T12:46:02.000+09:00
diff --git a/R/ENMevaluate.R b/R/ENMevaluate.R
@@ -752,7 +752,7 @@ ENMevaluate <- function(occs, envs = NULL, bg = NULL, tune.args = NULL,
         levels(envs[[categoricals[i]]]) <- lev.df[[1]]
       }  
     }
-    message("Making model prediction rasters...")
+    if(quiet != TRUE) message("Making model prediction rasters...")
     mod.full.pred.all <- terra::rast(lapply(results, f))
     names(mod.full.pred.all) <- tune.names
   }else{

Original file line number	Diff line number	Diff line change
`@@ -752,7 +752,7 @@ ENMevaluate <- function(occs, envs = NULL, bg = NULL, tune.args = NULL,`
`752`	`752`	`levels(envs[[categoricals[i]]]) <- lev.df[[1]]`
`753`	`753`	`}`
`754`	`754`	`}`
`755`		`- message("Making model prediction rasters...")`
	`755`	`+ if(quiet != TRUE) message("Making model prediction rasters...")`
`756`	`756`	`mod.full.pred.all <- terra::rast(lapply(results, f))`
`757`	`757`	`names(mod.full.pred.all) <- tune.names`
`758`	`758`	`}else{`