Create vignette to explain how to update a rank list

[andrie]

Based on an idea by @tyluRp in #66

library(shiny)

ui <- fluidPage(
  selectInput("data", "data", c("mtcars", "iris"), "mtcars"),
  uiOutput("sortable"),
  tableOutput("table")
)

server <- function(input, output, session) {
  rv <- reactiveValues(data = data.frame())
  
  observeEvent(input$data, {
    rv$data <- get(input$data)
  })
  
  observeEvent(input$sortable, {
    rv$data <- rv$data[input$sortable]
  })
  
  output$sortable <- renderUI({
    sortable::rank_list("", names(rv$data), "sortable")
  })
  
  output$table <- renderTable({
    rv$data
  })
}

shinyApp(ui, server)