单击按钮关闭shinyWidgets dropdownButton

Question

有没有办法在点击按钮后关闭闪亮应用中c.Offset(0, rgeData.Columns.Count - 1).Value 的上下文菜单？我在dropdownButton - 文档中寻找closed / opened这样的属性，找不到任何内容，但我相信必须有办法解决这个问题。

这是一个示例应用程序：

dropdownButton

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

static auto vec = []{
    std::vector<A> vec;
    vec.emplace_back();
    return vec;
}();