有没有办法使用 shinyWidgets 包中的 pickerInput 函数对变量进行分组？

Question

我的数据如下所示：

A B C

x 1 NA
x 2 NA
x 2 NA
y 1 NA
y 2 NA
z 2 NA
z 3 NA
z 3 NA
z 2 NA

我需要在我的 pickerInput 函数中对 A 的每个值进行分组

library(shiny)
library(shinyWidgets)

x <- read.csv("Example.csv", sep=";")

ui <- fluidPage(
    pickerInput("x", "Pick :", choices = x$A, multiple = T)
)
server <- function(input, output) {}
shinyApp(ui, server)

我希望选择框中的内容是：

x

是的

z

而不是我得到 x y z 的每次出现

那么我该如何对这些值进行分组呢？

我设法使用来自 shiny 包的传统 selectInput 函数来实现这一点，但是来自 shinyWidget 函数的“全选/取消全选”对我的目的来说真的很有趣

Answer 1

library(shiny)
library(shinyWidgets)

ui <- fluidPage(
    fileInput("file1", "Choose CSV File",
              accept = c(
                  "text/csv",
                  "text/comma-separated-values,text/plain",
                  ".csv"),
    ),
    uiOutput("selection")
)
server <- function(input, output) {

    output$selection <- renderUI({
        inFile <- input$file1

        if (is.null(inFile))
            return(NULL)

        df <- read.csv(inFile$datapath)

        tagList(
        selectizeInput("dynamicselctor", "Pick: ", choices = unique(df[[1]]), multiple = TRUE),
        pickerInput("dynamicselctor2", "Pick: ", choices = unique(df[[1]]), multiple = TRUE)
        )

    })

}
shinyApp(ui, server)

从服务器端渲染您的PickerInput 或selectizeInput 也是一种选择（但通常它应该可以工作）