1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
library(shiny)
library(plotly)
# get all the available mapbox styles
mapStyles <- schema()$layout$layoutAttributes$mapbox$style$values
ui <- fluidPage(
selectInput("style", "Select a mapbox style", mapStyles),
plotlyOutput("map")
)
server <- function(input, output, session) {
output$map <- renderPlotly({
plot_mapbox()
})
observeEvent(input$style, {
plotlyProxy("map", session) %>%
plotlyProxyInvoke(
"relayout",
list(mapbox = list(style = input$style))
)
})
}
shinyApp(ui, server)
|
