R/norway_map.R

In cstubben/norwayr: Census records and maps from Norway

#'  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);
  }"))}