add tiny blue marble internal data

hypertidy · Dec 2, 2018 · b454c2b · b454c2b
1 parent d235014
commit b454c2b
Show file tree

Hide file tree

Showing 4 changed files with 14 additions and 0 deletions.
diff --git a/.Rbuildignore b/.Rbuildignore
@@ -14,3 +14,4 @@
 ^docs$
 ^data/mapbox_sat.rda$
 ^man/figures/quadglobe.png$
+^data-raw/world.topo.bathy.200412.3x5400x2700.png$
diff --git a/.gitignore b/.gitignore
@@ -8,3 +8,4 @@ data/mapbox_sat.rda
 vignettes/*.html
 vignettes/*.R
 data-raw/roms3d.rds
+data-raw/world.topo.bathy.200412.3x5400x2700.png
diff --git a/R/sysdata.rda b/R/sysdata.rda
diff --git a/data-raw/blue-marble.R b/data-raw/blue-marble.R
@@ -0,0 +1,12 @@
+u <- "https://eoimages.gsfc.nasa.gov/images/imagerecords/73000/73909/world.topo.bathy.200412.3x5400x2700.png"
+f <- file.path("data-raw", basename(u))
+if (!file.exists(f)) curl::curl_download(u, f)
+library(lazyraster)
+library(raster)
+dm <- c(216, 108)
+bm <- setExtent(raster::brick(as_raster(lazyraster::lazyraster(f, band = 1), dm),
+                    as_raster(lazyraster::lazyraster(f, band = 2), dm),
+                    as_raster(lazyraster::lazyraster(f, band = 3), dm,)),
+                extent(-180, 180, -90, 90))
+projection(bm) <- "+init=epsg:4326"
+usethis::use_data(bm, internal=TRUE)