Fix #576 again

geocompx · Apr 6, 2021 · 4a07048 · 4a07048
1 parent cf35157
commit 4a07048
Show file tree

Hide file tree

Showing 2 changed files with 20 additions and 2 deletions.
diff --git a/05-geometry-operations.Rmd b/05-geometry-operations.Rmd
@@ -1144,7 +1144,7 @@ We will use a real-world digital elevation model (DEM) because the artificial ra
 <!-- because when creating it we made the upper left corner the lowest and the lower right corner the highest value while increasing cell values by one from left to right. -->
 Contour lines can be created with the **raster** function `rasterToContour()`, which is itself a wrapper around `contourLines()`, as demonstrated below (not shown):
 
-```{r 05-geometry-operations-66, eval = FALSE}
+```{r 05-geometry-operations-66, eval=FALSE}
 data(dem, package = "spDataLarge")
 cl = rasterToContour(dem)
 plot(dem, axes = FALSE)

diff --git a/07-read-write-plot.Rmd b/07-read-write-plot.Rmd
@@ -106,9 +106,27 @@ usa_sf = st_as_sf(usa)
 A second example downloads a series of rasters containing global monthly precipitation sums with spatial resolution of ten minutes.
 The result is a multilayer object of class `RasterStack`.
 
+```{r, eval=FALSE, echo=FALSE}
+# in case the raster server is down
+# library(raster)
+# if this fails:
+# worldclim_prec = getData(name = "worldclim", var = "prec", res = 10)
+if(!file.exists("prec_10m_bil.zip")) {
+  u = "https://github.com/Robinlovelace/geocompr/releases/download/1.2/prec_10m_bil.zip"
+  download.file(u, "prec_10m_bil.zip")
+  unzip("prec_10m_bil.zip", exdir = "prec")
+}
+worldclim_prec = stack(list.files("prec", pattern = "bil", full.names = TRUE))
+saveRDS(worldclim_prec, "worldclim_prec.Rds")
+piggyback::pb_upload("worldclim_prec.Rds")
+piggyback::pb_download_url("worldclim_prec.Rds")
+```
+
+
 ```{r 07-read-write-plot-5}
 library(raster)
-worldclim_prec = getData(name = "worldclim", var = "prec", res = 10)
+u = "https://github.com/Robinlovelace/geocompr/releases/download/1.2/worldclim_prec.Rds"
+worldclim_prec = readRDS(url(u))
 class(worldclim_prec)
 ```