# NOT RUN {
library(shiny)
ui <- fluidPage(
actionButton(
"delete",
"Delete map"
),
datamapsOutput("map")
)
server <- function(input, output){
output$map <- renderDatamaps({
datamaps()
})
}
shinyApp(ui, server)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab