Better error handling

EvolEcolGroup · Jan 26, 2024 · a7d3f2a · a7d3f2a
1 parent a3ba36a
commit a7d3f2a
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 deletions.
diff --git a/R/download_chelsa.R b/R/download_chelsa.R
@@ -68,7 +68,7 @@ download_chelsa <- function(dataset, bio_var, filename) {
                            time_vector = time_vector, time_bp=FALSE)
   if (!edit_res){
     file.remove(vrt_path)
-    stop("something went wrong setting up this dataset", , "\n the dataset wil need downloading again")
+    stop("something went wrong setting up this dataset", "\n the dataset will need downloading again")
   }
   return(TRUE)
 }

diff --git a/R/download_chelsa_trace21k.R b/R/download_chelsa_trace21k.R
@@ -93,7 +93,7 @@ download_chelsa_trace21k <- function(dataset, bio_var, filename=NULL, time_bp=NU
                            time_vector = time_bp, time_bp=TRUE)
   if (!edit_res){
     file.remove(vrt_path)
-    stop("something went wrong setting up this dataset", , "\n the dataset wil need downloading again")
+    stop("something went wrong setting up this dataset", "\n the dataset wil need downloading again")
   }
   return()
 }

diff --git a/R/download_worldclim_future.R b/R/download_worldclim_future.R
@@ -83,7 +83,7 @@ download_worldclim_future <- function(dataset, bio_var, filename = NULL) {
                  time_bp = FALSE)
    }
   if (!file.exists(filename)){
-    stop("something went wrong setting up this dataset")
+    stop("something went wrong setting up this dataset", "\n the dataset will need downloading again")
   }
   return(TRUE)
 }