单击按钮关闭shinyWidgets dropdownButton

Question

有什么方法可以在点击按钮后关闭dropdownButton的上下文菜单呢？我正在寻找一个属性，比如closed/opened在dropdownButton-documentation中，但是我认为一定有办法做到这一点。

这是一个示例应用程序：

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)