From eec464e22c7a240529f83491c7452cd1ea8a9e4b Mon Sep 17 00:00:00 2001 From: Andrea Manica Date: Wed, 13 Sep 2023 12:48:12 +0100 Subject: [PATCH] remove debug code --- R/download_worldclim_future.R | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/R/download_worldclim_future.R b/R/download_worldclim_future.R index 6195c354..e068bb5d 100644 --- 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,