将以前选择的值保存在RShiny中tableOutput下拉菜单中

我当前的应用程序根据下拉列表中选择的值（“组”）显示

表格输出。问题在于
表格输出
仅显示下拉列表中一个选定值的数据。但是，我希望看到从下拉列表中选择的所有值。例如，如果用户选择a组和B组，它将显示3行（a组有2行，B组有1行）。你会怎么做

任何建议都会有帮助

这是一个可复制的代码：

library(dplyr)
library(shiny)
library(shinyWidgets)

df <- data.frame("Group" = c("A", "A", "B", "C"), "Number" = c(1, 2, 3, 4))

ui <- fluidPage(
  fluidRow(
    column(4, 
           pickerInput("groupInput", "Group:",
             choices = unique(df$Group),
             multiple = T)
           )
  ),
  mainPanel(
    tableOutput("wholeData")
  )
)

server <- function(input, output, session) {
  data <- reactive({
    req(input$groupInput)
    df %>% 
      filter(Group == input$groupInput)
  })
  
  output$wholeData <- renderTable({
    dataset <- data()
    req(dataset)
  })
}

shinyApp(ui, server)

库（dplyr）
图书馆（闪亮）
图书馆（shinyWidgets）
df将
filter（组%in%input$groupInput）
提供您需要的内容？您需要
filter（组%in%input$groupInput）
它工作了！！谢谢你的帮助。