Shiny_MIgration_paths_Server.R

Observer_Server.R

  observe({
    # data frames
    if(input$whichData == 'Daily Arrivals'){
      data_stat = balkanRoute}
    else if(input$whichData == 'Gender'){
      data_stat = dataGender2016}
    else {data_stat = dataOrigin2016}

    # Column indexes
    if(input$whichData == 'Daily Arrivals'){
      col = col_balkanRoute}
    else if(input$whichData == 'Gender'){
      col = col_gender}
    else {col = col_demography}
    updateSelectInput(session, "selected", choices = col,
                    selected = col[1:min(4, length(col))]
                    )
    # show data using DataTable
    output$table <- renderDataTable({
      datatable(data_stat[,input$selected], rownames=FALSE,selection = 'multiple') %>% 
        formatStyle(input$selected, background="skyblue", fontWeight='bold')
                                  })
    })