test_fix

EvolEcolGroup · Sep 8, 2023 · 3f73e8c · 3f73e8c
1 parent b012853
commit 3f73e8c
Show file tree

Hide file tree

Showing 3 changed files with 1 addition and 3 deletions.
diff --git a/R/download_dataset.R b/R/download_dataset.R
@@ -78,7 +78,6 @@ download_dataset <- function(dataset, bio_variables = NULL, annual = TRUE,
                             destfile = file.path(get_data_path(), file_details$file_name),
                             quiet = FALSE
         )} else{ # we use a custom download function if the files have to be converted locally
-          browser()
           eval(parse(text=file_details$download_function))(dataset=dataset, 
                                      bio_var = this_var,
                                      filename = file.path(get_data_path(), file_details$file_name))

diff --git a/R/download_worldclim_present.R b/R/download_worldclim_present.R
@@ -16,7 +16,6 @@ download_worldclim_present <- function(dataset, bio_var, filename){
   # get resolution from the dataset name and convert it to the original
   res_conversion <- data.frame(our_res = c("10m","5m","2.5m", "0.5m"),
                                       wc_res = c("10m","5m", "2.5m", "30s"))
-  browser()
   wc_res <- res_conversion$wc_res[res_conversion$our_res==substr(dataset,
                                                                   start = 15,
                                                                   stop=nchar(dataset))]

diff --git a/data-raw/helper_functions/verify_files_by_dataset.R b/data-raw/helper_functions/verify_files_by_dataset.R
@@ -4,7 +4,7 @@ full_meta <- pastclim:::dataset_list_included
 in_dir <- get_data_path()
 problem_rows <- vector()
 for (i in 1:nrow(full_meta)){
-  pastclim::download_dataset(dataset = full_meta$dataset[i],
+  pastclim::download_dataset(dataset = as.character(full_meta$dataset[i]),
                    bio_variables = full_meta$variable[i])
   nc_in <- ncdf4::nc_open(file.path(in_dir, full_meta$file_name[i]))
   if (!full_meta$ncvar[i] %in% names(nc_in$var)){