name gcm_input raster list

bcgov · Dec 21, 2023 · 6100334 · 6100334
1 parent 47d20a5
commit 6100334
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/gcm.R b/R/gcm.R
@@ -19,9 +19,9 @@
 #' @export
 gcm_input <- function(dbCon, bbox = NULL, gcm = list_gcm(), ssp = list_ssp(), period = list_gcm_period(), max_run = 0L, cache = TRUE) {
   # Load each file individually + select layers
-  res <- lapply(gcm, process_one_gcm2, ssp = ssp, period = period,
+  res <- sapply(gcm, process_one_gcm2, ssp = ssp, period = period,
                 bbox = bbox, dbnames = dbnames, dbCon = dbCon, 
-                max_run = max_run, cache = cache)
+                max_run = max_run, cache = cache, USE.NAMES = TRUE, simplify = FALSE)
   attr(res, "builder") <- "climr"
 
   # Return a list of SpatRaster, one element for each model