r_nlcd_empty <- function() {
raster::raster(
nrows = 104424,
ncols = 161190,
xmn = -2493045,
xmx = 2342655,
ymn = 177285,
ymx = 3310005,
crs = "+proj=aea +lat_1=29.5 +lat_2=45.5 +lat_0=23 +lon_0=-96 +x_0=0 +y_0=0 +datum=WGS84 +units=m +no_defs +ellps=WGS84 +towgs84=0,0,0",
resolution = c(30, 30),
vals = NULL
)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.