regional demo: save geo data to tempdir() instead of getCachePath()

This fixes the following CRAN policies issue:

Please ensure that your functions do not write by default or in your
examples/vignettes/tests in the user's home filespace (including the
package directory and getwd()). This is not allowed by CRAN policies.
Please omit any default path in writing functions. In your
examples/vignettes/tests you can write to tempdir().
e.g.: demo/regional.R

Please fix and resubmit.

Change-Id: I6cf99d79d5e19efd56fcff813b595a64c2bff575
diff --git a/demo/regional.R b/demo/regional.R
index 5d62d78..e0cdef3 100755
--- a/demo/regional.R
+++ b/demo/regional.R
@@ -3,10 +3,16 @@
 library(ggplot2)
 library(raster)
 library(broom)
-library(R.cache)
+# library(R.cache)
 
 devAskNewPage(ask = FALSE)
-mapfile <- file.path(R.cache::getCachePath(), "map-v2.rds")
+
+mapfile <- file.path(tempdir(), "map-v2.rds")
+
+# Caching data in the user's home filespace by default
+# is not allowed to package demos by CRAN policies ...
+#
+# mapfile <- file.path(R.cache::getCachePath(), "map-v2.rds")
 
 fetchAndPrepareMap <- function(map, pick) {
   cat("Downloading GADM map data for ", map, "\n")