inst/apps/myfirstapp/server.R

In HarmonicAnova21/FRame.BuildR: Package for Generation of Frame Matrices

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 <- DT::renderDataTable({

    #map_data[order(map_data[input$select]), ]
    DT::datatable(map_data)
  })

}