inst/apps/myfirstApp/server.R

#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]),]
  })
}
JSmith146/CoRpEx documentation built on May 17, 2019, 10:11 p.m.