Small 🐛 fix that crashed modelling routine

iiasa · Oct 24, 2023 · 83c3b63 · 83c3b63
1 parent c2db82b
commit 83c3b63
Show file tree

Hide file tree

Showing 2 changed files with 5 additions and 3 deletions.
diff --git a/NEWS.md b/NEWS.md
@@ -10,6 +10,7 @@
 * Minor bug fixes in `scenario()` object, and MigClim and Kissmig wrappers.
 * Bug fix related to CRS classes of sp and sf
 * Bug fix related to blas.num.threads
+* Bug fix that crashed `write_summary()` outputs when no prediction was made.
 * Bug fix related to CRS in `engine_inla()`
 * Bug fix in `engine_stan()` related to background layer
 

diff --git a/R/write_output.R b/R/write_output.R
@@ -385,9 +385,10 @@ methods::setMethod(
 
       # Model summary in a tibble and formula
       output[["output"]][["summary"]] <- mod$summary()
-      if(!is.null(mod$get_data("prediction") )){
-        output[["output"]][["resolution"]] <- terra::res( mod$get_data("prediction") )
-        output[["output"]][["prediction"]] <- names( mod$get_data("prediction") )
+      pred <- mod$get_data("prediction")
+      if(!is.null(pred) && !is.Waiver(pred)){
+        output[["output"]][["resolution"]] <- terra::res( pred )
+        output[["output"]][["prediction"]] <- names( pred )
       } else {
         output[["output"]][["resolution"]] <- NA
         output[["output"]][["prediction"]] <- NA