# NOT RUN {
# !formatR
# }
# NOT RUN {
library(leaflet)
library(shiny)
app = shinyApp(
ui = fluidPage(leafletOutput('myMap')),
server = function(input, output) {
map = leaflet() %>% addTiles() %>% setView(-93.65, 42.0285, zoom = 17)
output$myMap = renderLeaflet(map)
}
)
if (interactive()) print(app)
# }
Run the code above in your browser using DataLab