Reordering the levels of categorical variables in a shiny app with shinyjqui

order_input.R

library(palmerpenguins)
library(shiny)
library(shinyjqui)

categories <- colnames(penguins)[vapply(penguins, is.factor, logical(1))]

server <- function(input, output) {
  lapply(categories, \(category) {
    output[[category]] <- renderPrint({ print(input[[category]]) })
  })
}

ui <- fluidPage({
  lapply(categories, \(category) {
    tagList(
      orderInput(category, category, items = levels(penguins[[category]])),
      verbatimTextOutput(category)
    )
  })
})

shinyApp(ui, server)