Author: C.DERVIEUX
Description: Testing behavior of leaflets

# Leaflet in layouts

Testing behavior of leaflets

C.DERVIEUX

    insert_leaflet <- function(layout = "l-body") {
      knitr::knit_child(text = knitr::knit_expand("template.rmd", layout = layout))
    }

# l-body

    library(leaflet)
    leaflet() %>%
      addTiles() %>%  # Add default OpenStreetMap map tiles
      addMarkers(lng=174.768, lat=-36.852, popup="The birthplace of R")

# l-body-outset

    library(leaflet)
    leaflet() %>%
      addTiles() %>%  # Add default OpenStreetMap map tiles
      addMarkers(lng=174.768, lat=-36.852, popup="The birthplace of R")

# l-page

    library(leaflet)
    leaflet() %>%
      addTiles() %>%  # Add default OpenStreetMap map tiles
      addMarkers(lng=174.768, lat=-36.852, popup="The birthplace of R")

# l-screen

    library(leaflet)
    leaflet() %>%
      addTiles() %>%  # Add default OpenStreetMap map tiles
      addMarkers(lng=174.768, lat=-36.852, popup="The birthplace of R")

# l-screen-inset

    library(leaflet)
    leaflet() %>%
      addTiles() %>%  # Add default OpenStreetMap map tiles
      addMarkers(lng=174.768, lat=-36.852, popup="The birthplace of R")

# l-screen-inset shaded

    library(leaflet)
    leaflet() %>%
      addTiles() %>%  # Add default OpenStreetMap map tiles
      addMarkers(lng=174.768, lat=-36.852, popup="The birthplace of R")

    unlink("template.rmd")