Nothing
## ---- include = FALSE---------------------------------------------------------
knitr::opts_chunk$set(
collapse = TRUE,
comment = "#>"
)
options(rmarkdown.html_vignette.check_title = FALSE)
library(arcpullr)
library(sf)
## ---- echo = FALSE------------------------------------------------------------
#<img src='../man/figures/logo.png' width="160" height="180" style="border: none; float: right"/>
## -----------------------------------------------------------------------------
# WDNR Server
image_server <- "https://dnrmaps.wi.gov/arcgis_image/rest/services/"
# WI Landcover Type URL
landcover_path <- "DW_Land_Cover/EN_Land_Cover2_Lev2/MapServer"
landcover_url <- paste0(image_server, landcover_path)
# WI Leaf-off Aerial Imagery URL
wi_leaf_off_path <- "DW_Image/EN_Image_Basemap_Leaf_Off/ImageServer"
wi_aerial_imagery_url <- paste0(image_server, wi_leaf_off_path)
# the wis_poly polygon is available as an exported object in arcpullr
## ----map_layer, eval = FALSE, echo = FALSE------------------------------------
# wi_landcover <- get_map_layer(landcover_url, wis_poly)
## ----show_map_plotting, ref.label=c('map_layer', 'plot_map_layer'), eval = FALSE----
# wi_landcover <- get_map_layer(landcover_url, wis_poly)
# plot_layer(wi_landcover)
## ----plot_map_layer, fig.height = 7, fig.width = 7, echo = FALSE--------------
plot_layer(wi_landcover)
## ---- image_layer, eval = FALSE, echo = FALSE---------------------------------
# wi_aerial_imagery <- get_image_layer(wi_aerial_imagery_url, wis_poly)
## ----show_map_plotting, ref.label=c("image_layer", "plot_image_layer"), eval = FALSE----
# wi_aerial_imagery <- get_image_layer(wi_aerial_imagery_url, wis_poly)
# plot_layer(wi_aerial_imagery)
## ---- plot_image_layer, fig.height = 5, fig.width = 5, echo = FALSE-----------
plot_layer(wi_aerial_imagery)
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.