inst/apps/myFirstApp/server.R

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]),]
    
  })
  
}
gallagherj2008/SWAT documentation built on May 28, 2019, 12:59 p.m.