ボタンをクリックしてshinyWidgetsドロップダウンボタンを閉じる

Question

dropdownButtonのコンテキストメニューをボタンをクリックして光ったアプリに閉じ込める方法はありますか？私はclosed/openedのような属性をdropdownButton文書で探していましたが、何も見つかりませんでしたが、これを行う方法が必要であると信じています。

これは、例えばアプリです：あなたはこのような何かを意味するか

library(shiny) 
library(shinyWidgets) 

ui <- fluidPage(
    dropdownButton(
    actionButton("button", "Press this Button to close the dropdownButton!"), 
    circle = TRUE, status = "primary", icon = icon("user-circle") 
) 
) 

server <- function(input, output) { 
    observeEvent(
    input$button, { 
     # Set dropdownButton closed 
     print("Test") 
    } 
) 

} 

shinyApp(ui = ui, server = server) 

Answer 1

？

library(shiny) 
    library(shinyWidgets) 

    ui <- fluidPage(
    uiOutput('help') 

) 

    server <- function(input, output) { 
    observeEvent(
     input$button, { 
     shinyjs::hide("button") 
     #output$help <- renderUI({}) 

     } 
    ) 
    output$help <- renderUI(dropdownButton(
     actionButton("button", "Press this Button to close the dropdownButton!"), 
     circle = TRUE, status = "primary", icon = icon("user-circle") 
    )) 

    } 

    shinyApp(ui = ui, server = server) 

Answer 2

library(shiny) 
library(shinyWidgets) 

ui <- fluidPage(
    uiOutput('help') 

) 

server <- function(input, output) { 
    observeEvent(
    input$button, { 
     shinyjs::hideElement("dropdown-menu") 


    } 
) 
    output$help <- renderUI(dropdownButton(
    actionButton("button", "Press this Button to close the dropdownButton!"), 
    circle = TRUE, status = "primary", icon = icon("user-circle") 
)) 

} 

shinyApp(ui = ui, server = server)