Closed andrie closed 3 years ago
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)
Based on an idea by @tyluRp in #66