shinyWidgets：：当在renderUI中使用时没有出现采用器输入

Question

我不明白为什么下面的代码不能工作：

library(shinyWidgets)
library(shiny)
library(tidyverse)
library(forcats)

tmp <- tibble(Cat = c(rep("IV", 5), rep("III", 5)),
       Subcat = LETTERS[1:10])
tmp <- mutate(tmp, Cat = factor(Cat), Subcat = factor(Subcat))       

ui <- fluidPage(
       titlePanel(""),
   sidebarLayout(
      sidebarPanel(
         checkboxGroupButtons("Cat", "Category:", choices = levels(tmp$Cat), selected = levels(tmp$Cat)),
         uiOutput("Subcat")
      ),
   mainPanel(tableOutput("Table"))
   )
)

server <- function(input, output) {
   output$Subcat <- renderUI({
     tmp <- tmp %>% 
       filter(Cat %in% input$Cat) %>% 
       mutate(Subcat = fct_drop(Subcat))

     # pickerInput("what", label = "hello?", choices = levels(tmp$Subcat), selected = levels(tmp$Subcat), multiple = TRUE) #Does not appear
     checkboxGroupButtons("what", label = "hello?", choices = levels(tmp$Subcat), selected = levels(tmp$Subcat)) #Appears
   })

   output$Table <- renderTable({ filter(tmp, Cat %in% input$Cat, Subcat %in% input$what)})
   }

shinyApp(ui = ui, server = server)

如果我取消对pickerInput行的注释并注释掉下面的行，下拉小部件就不会出现。我是不是做错了什么，还是偶然发现了窃听器？

编辑:我做错了。我需要使用updatePickerInput()。

Answer 1

我的版本是0.3.5，一切都适合我。试着安装dev版本

# install.packages("devtools")
# devtools::install_github("dreamRs/shinyWidgets")


library(shinyWidgets)
library(shiny)
library(tidyverse)
library(forcats)

tmp <- tibble(Cat = c(rep("IV", 5), rep("III", 5)),
              Subcat = LETTERS[1:10])
tmp <- mutate(tmp, Cat = factor(Cat), Subcat = factor(Subcat))       

ui <- fluidPage(
  titlePanel(""),
  sidebarLayout(
    sidebarPanel(
      checkboxGroupButtons("Cat", "Category:", choices = levels(tmp$Cat), selected = levels(tmp$Cat)),
      uiOutput("Subcat")
    ),
    mainPanel(tableOutput("Table"))
  )
)

server <- function(input, output) {
  output$Subcat <- renderUI({
    tmp <- tmp %>% 
      filter(Cat %in% input$Cat) %>% 
      mutate(Subcat = fct_drop(Subcat))
    pickerInput("what", label = "hello?", choices = levels(tmp$Subcat), selected = levels(tmp$Subcat), multiple = TRUE) #Does not appear
  })

  output$Table <- renderTable({ filter(tmp, Cat %in% input$Cat, Subcat %in% input$what)})
}

shinyApp(ui = ui, server = server)

​

​