inst/apps/myFirstApp/server.r

In RachelRamirez/NPS: Visualize the National Park Service and Benson Acoustic Summary Database

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]), ]
    
  })
}