# NOT RUN {
library(shiny)
library(leaflet)
library(leaflet.extras2)
## In the /www folder of a ShinyApp. Must contain the Nextzen API-key
scene <- "scene.yaml"
ui <- fluidPage(leafletOutput("map"))
server <- function(input, output, session) {
output$map <- renderLeaflet({
leaflet() %>%
addTiles(group = "base") %>%
addTangram(scene = scene, group = "tangram") %>%
addCircleMarkers(data = breweries91, group = "brews") %>%
setView(11, 49.4, 14) %>%
addLayersControl(baseGroups = c("tangram", "base"),
overlayGroups = c("brews"))
})
}
shinyApp(ui, server)
# }
Run the code above in your browser using DataLab