#' Leafet map plugin for the Norwegian Mapping Authority
#'
#' Tile layers from Kartverket (The Norwegian Mapping Authority) are available from
#' \url{https://github.com/knreise/L.TileLayer.Kartverket}
#'
#' @param layer Tile layer, default matrikkel_bakgrunn, or topo2, topo2graatone, europa, toporaster2,
#' sjo_hovedkart2, kartdata2, norges_grunnkart, norges_grunnkart_graatone, egk
#' @return Leaflet map in RStudio
#' @note Code was copied from \url{https://gist.github.com/jcheng5/c084a59717f18e947a17955007dc5f92}
#'
#' @author Chris Stubben
#'
#' @examples
#' \dontrun{
#' # defaults to world scale so set view or addMarkers
#' norway_map()
#' norway_map() %>% setView( 9.804308, 63.204115, zoom = 14)
#' norway_map() %>% addMarkers( lng=c(9.801886, 9.835229, 9.788697),
#' lat=c(63.203925, 63.206095, 63.2151) )
#' }
#' @export
norway_map <- function( layer="matrikkel_bakgrunn" ){
leaflet() %>%
registerPlugin(kartPlugin) %>%
htmlwidgets::onRender(paste0("function(el, x) {
L.tileLayer.kartverket('", layer, "').addTo(this);
}"))}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.