inst/apps/myFirstApp/server.R

In jtelliott/attrition-forecast: Forecast US Air Force Officer Attrition Using Regression with ARIMA Errors

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

  })
}