commit ca6c4f6c78a430032ed57dadb3c98188660b32a8
author Marc Kupietz <kupietz@ids-mannheim.de> Tue Sep 06 10:40:50 2022 +0200
committer Marc Kupietz <kupietz@ids-mannheim.de> Tue Sep 06 11:31:32 2022 +0200
tree edbd7a035687ff4f769f1e1fc3c9a5f08d4f6900
parent e0a80149ab4adc63500df9510a93b0b1568aa3b2

regional demo: cache map data in proper R.cache dir

Change-Id: Ida19b35c36ca978797d043ba89ca1e359422cd2d

demo/regional.R

diff --git a/demo/regional.R b/demo/regional.R
index f056d58..5d62d78 100755
--- a/demo/regional.R
+++ b/demo/regional.R
@@ -3,9 +3,10 @@
 library(ggplot2)
 library(raster)
 library(broom)
+library(R.cache)
 
 devAskNewPage(ask = FALSE)
-mapfile <- "demo/data/cache/map-v2.rds"
+mapfile <- file.path(R.cache::getCachePath(), "map-v2.rds")
 
 fetchAndPrepareMap <- function(map, pick) {
   cat("Downloading GADM map data for ", map, "\n")