remove debug code

EvolEcolGroup · Sep 13, 2023 · eec464e · eec464e
1 parent 0d27b28
commit eec464e
Showing 1 changed file with 1 addition and 2 deletions.
diff --git a/R/download_worldclim_future.R b/R/download_worldclim_future.R
@@ -67,7 +67,7 @@ download_worldclim_future <- function(dataset, bio_var, filename){
   # and finally we save it as a netcdf file
   time_bp(wc_list[[i_step]]) <- rep(dates_df$time_bp[dates_df$orig == i_step],nlyr(wc_list[[i_step]]))
   }
-  message("assembling all the data into a netcdf file for use with pastclim; this operation will take a couple of minutes...\n")
+  message("assembling all the data into a netcdf file for use with pastclim; this operation will take a few minutes...\n")
 
   var_names <- names(wc_list[[1]])
   sds_list <- list()
@@ -81,7 +81,6 @@ download_worldclim_future <- function(dataset, bio_var, filename){
     sds_list[[new_var_name]]<-terra::rast(lapply(wc_list, terra::subset,subset=i_var))
     names(sds_list[[new_var_name]])<-rep(new_var_name,nlyr((sds_list[[new_var_name]])))
   }
-  browser()
   wc_sds <- terra::sds(sds_list)
 
   terra::writeCDF(wc_sds,filename=filename, compression=9,