Fix link for geo data download in regional demo
Resolves #28
Change-Id: I1bec65bc3889f6c1acd3e0788ae125a48d368ac2
diff --git a/demo/regional.R b/demo/regional.R
index 81ddae1..2b56014 100755
--- a/demo/regional.R
+++ b/demo/regional.R
@@ -16,7 +16,7 @@
fetchAndPrepareMap <- function(map, pick) {
cat("Downloading GADM map data for ", map, "\n")
- sp <- readRDS(url(sprintf("https://biogeo.ucdavis.edu/data/gadm3.6/Rsp/gadm36_%s_sp.rds", map)))
+ sp <- readRDS(url(sprintf("https://geodata.ucdavis.edu/gadm/gadm3.6/Rsp/gadm36_%s_sp.rds", map)))
if (pick > 0) {
sp@polygons <- sp@polygons[pick]
sp@data <- sp@data[pick,]