minor bug fix

SantanderMetGroup · Dec 4, 2023 · d99303b · d99303b
1 parent 34dbb16
commit d99303b
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 0 deletions.
diff --git a/R/petGrid.R b/R/petGrid.R
@@ -223,6 +223,7 @@ petGrid.th <- function(tas, tasmin, tasmax, k, phc, ...) {
 #' @author J Bedia
 
 petGrid.har <- function(tasmin, tasmax, pr = NULL, Ra = NULL, ...) {
+  add.arg.list <- list(...)
   if (is.null(tasmin) || is.null(tasmax)) {
     stop("tasmin and tasmax grids are required by Hargreaves method", call. = FALSE)
   }

diff --git a/R/speiGrid.R b/R/speiGrid.R
@@ -151,6 +151,7 @@ speiGrid <- function(pr.grid, et0.grid = NULL, scale = 3, params = NULL, return.
   })
   message("[", Sys.time(), "] Done")
   ## Recover the grid structure -----------------------
+  if(return.coefficients) pr.grid <- climatology(pr.grid) %>% suppressMessages
   pr.grid$Data <- do.call("abind", c(spei.list, along = -1L)) %>% unname()
   if (isTRUE(return.coefficients))   pr.grid <- redim(pr.grid, drop = TRUE)
   attr(pr.grid$Data, "dimensions") <- dimNames