#The app must have at least this set up to run
server <- function(input, output, session){
output$map <- renderPlot({
map_data$value = map_data[,input$select]
state_choropleth(df = map_data,
title = input$select,
num_colors =input$num_colors)
})
output$table <- renderDataTable({
map_data[order(map_data[input$select]),]
})
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.