local terraOptions in readGPM2

pik-piam · May 8, 2024 · 7829e6a · 7829e6a
1 parent 3bf7775
commit 7829e6a
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/readGPM2.R b/R/readGPM2.R
@@ -9,9 +9,10 @@
 #' @importFrom magclass as.magpie
 
 readGPM2 <- function() {
+  previousOptions <- terra::terraOptions(print = FALSE)
   terra::terraOptions(tempdir = withr::local_tempdir(tmpdir = getConfig("tmpfolder")),
                       todisk = FALSE, memfrac = 0.5)
-  withr::defer(terra::terraOptions(tempdir = tempdir()))
+  withr::defer(do.call(terra::terraOptions, previousOptions))
 
   # read-in file
   r <- terra::rast("peatMAY22_1x1_mw_RUS30.tif")