Fix to predictions

Author: elgabbas

.lintr

@@ -101,7 +101,7 @@ exclusions: list(
 	"R/dwf_river_length.R" = list(line_length_linter = Inf),
 	"R/mod_prepare_knots.R" = list(unnecessary_nesting_linter = 70:80),
 	"R/mod_prepare_hpc.R" = list(line_length_linter = Inf),
-	"R/mod_potprocess.R" = list(line_length_linter = 1020:1025),
+	"R/mod_potprocess.R" = list(line_length_linter = 1011:1062),
 	"R/dwf_wetness_index.R" = list(line_length_linter = Inf),
 	"R/dwf_soil.R" = list(line_length_linter = Inf)
 	)

R/mod_predict_maps.R

@@ -783,7 +783,7 @@ predict_maps <- function(
 
     predict_data_test <- prediction_options %>%
       dplyr::filter(climate_model == "current") %>%
-      dplyr::pull("FilePath") %>%
+      dplyr::pull("file_path") %>%
       # If clamp_pred`=`TRUE`, there are two options for current climate data
       # (with and without clamping). Two sets of predictions under current
       # climates will be produced. Predictions without clamping is used for
@@ -871,7 +871,7 @@ predict_maps <- function(
     do_clamp <- prediction_options$clamp[[id]]
 
     # Name of the current option
-    option_name <- prediction_options$name[[id]]
+    option_name <- prediction_options$climate_name[[id]]
 
     # Name of the current model
     model_name <- paste0(
@@ -964,7 +964,7 @@ predict_maps <- function(
 
         # Extracting data at training and new sites ------
         ecokit::cat_time("Extracting data at training and new sites")
-        predict_data <- prediction_options$FilePath[[id]] %>%
+        predict_data <- prediction_options$file_path[[id]] %>%
           ecokit::load_as(unwrap_r = TRUE) %>%
           terra::subset(bio_variables) %>%
           c(static_preds) %>%
@@ -1256,7 +1256,7 @@ predict_maps <- function(
   prediction_summary <- purrr::map_dfr(
     .x = seq_len(nrow(prediction_options)), .f = predict_internal) %>%
     dplyr::full_join(prediction_options, ., by = c("name", "clamp")) %>%
-    dplyr::select(-"FilePath")
+    dplyr::select(-"file_path")
 
   rm(predict_internal, grid_10, model_coords, envir = environment())
   invisible(gc())