閃亮selectizeInput與功能「刪除所有一次刻錄」

Question

例子：

繼閃亮例如app.R文件包含一個selectizeInput UI。所選元素可以使用options = list(plugins= list('remove_button'))刪除。

library(shiny) 
library(dplyr) 

ui= fluidPage(
    sidebarLayout(
    sidebarPanel(
     selectizeInput(inputId= "cyl", label= "cyl", 
        choices= sort(unique(mtcars$cyl)), 
        selected= sort(unique(mtcars$cyl)), 
        multiple=T, 
        options = list(plugins= list('remove_button'))) 
    ), 
    mainPanel(
     tableOutput("tab") 
    ) 
) 
) 

server= function(input, output) { 
    df_filtered= reactive({ 
    mtcars %>% 
    {if (is.null(input$cyl)) . else filter(., cyl %in% input$cyl)} 
    }) 
    output$tab= renderTable(df_filtered()) 
} 

shinyApp(ui, server) 

問：

是否有增加了一個功能，「刪除所有在一次性」，而不是「刪除一個閃亮的訪問的selectize.js選項如示例中所示，「一個一個」？

我研究了selectize.js docu但卡住了。

Answer 1

我認爲它的解決方案走的是使用reset_button，但是selected=選項應改爲鉛丹（一種選擇？）因爲它是重置價值

library(shiny) 
library(shinyjs) 
library(dplyr) 

ui= fluidPage(
    sidebarLayout(
    sidebarPanel(
     useShinyjs(), 
     div(id = "form", 
      selectizeInput(inputId = "cyl", 
         label = "cyl", 
         choices = sort(unique(mtcars$cyl)), 
         selected=sort(unique(mtcars$cyl))[1], multiple=TRUE)), 
      actionButton("reset_input", "Reset") 
    ), 
    mainPanel(
     tableOutput("tab") 
    ) 
) 
) 

server= function(input, output) { 

    observeEvent(input$reset_input, { 
    shinyjs::reset("form") 
    }) 

    df_filtered= reactive({ 
    mtcars %>% 
    {if (is.null(input$cyl)) . else filter(., cyl %in% input$cyl)} 
    }) 
    output$tab= renderTable(df_filtered()) 
} 

shinyApp(ui, server) 

按Reset按鈕後，所有selected值被立即清除，返回主要值selectizeInput。