R Shiny：如何在过滤器中按升序显示值

Question

如何以升序显示过滤器中的值。

想要在 dataTableOutput 中以升序显示星期的过滤器。

这是ui.R的代码

fluidPage(
  titlePanel("Delivery Assurance Matrix"),
  fluidRow(
    column(4,

           selectInput("week_count",
                       "Week",
                       c("All",
                         sort(unique(as.character(data$Week))))
    ))),
 DT::dataTableOutput("table")
)

这是server.R的代码

function(input, output) {
output$table <- DT::renderDataTable(DT::datatable({
    data<-data
    if (input$week_count != "All") {
      data <- data[data$Week >= input$week_count,]
    }

    data
}))

}  

但在 UI Values 中不按顺序

Answer 1

您也可以使用shinyWidgets package ，它具有Select All选项

library(shiny)
library(shinyWidgets)

data <- c(11,1,2,3,10,21)
ui <- fluidPage(
    titlePanel("Delivery Assurance Matrix"),
    fluidRow(
        column(4,
               pickerInput(
                   inputId = "week_count",
                   label = "Week",
                   choices = sort(data),
                   multiple = TRUE,
                   options = list(
                       `actions-box` = TRUE,
                       `deselect-all-text` = "None...",
                       `select-all-text` = "Select All",
                       `none-selected-text` = "None Selected"
                   )
               )

               )),
    DT::dataTableOutput("table")
)


server <- function(input, output) {}  

shinyApp(ui = ui, server = server)

Answer 2

它通过这种变化解决了。

fluidRow(
    column(4,

           selectInput("week_count",
                       "Week",
                       c("All",
                         order(sort(unique(as.character(data$Week)))))
    ))