如何在Shiny应用中实现actionButton的点击隐藏与按需重现

以下是修改后的完整代码，可实现点击第一个按钮显示第二个按钮，点击第二个按钮隐藏自身，再次点击第一个按钮重新显示第二个按钮的循环效果：

library(shiny)
library(shinydashboard)

# Define UI
ui <- dashboardPage(
  dashboardHeader(title = "Subset Iris Dataset"),
  dashboardSidebar(),
  dashboardBody(
    actionButton("subset_button", "Subset Data"),
    uiOutput("second")
  )
)

# Define server logic
server <- function(input, output) {
  # 创建响应式变量，跟踪第二个按钮的显示状态
  show_second_btn <- reactiveVal(FALSE)
  
  # 监听第一个按钮点击，设置显示状态为TRUE
  observeEvent(input$subset_button, {
    show_second_btn(TRUE)
  })
  
  # 监听第二个按钮点击，设置显示状态为FALSE
  observeEvent(input$act, {
    show_second_btn(FALSE)
  })
  
  # 根据状态变量决定是否渲染第二个按钮
  output$second <- renderUI({
    if(show_second_btn()) {
      actionButton("act", "action")
    }
  })
}

# Run the application 
shinyApp(ui = ui, server = server)

关键修改说明： #

• 使用reactiveVal()创建响应式状态变量show_second_btn，用于记录第二个按钮的显示状态
• 为第一个按钮添加点击监听，触发时将状态变量设为TRUE，触发第二个按钮的渲染
• 为第二个按钮添加点击监听，触发时将状态变量设为FALSE，停止渲染第二个按钮
• 在renderUI中根据状态变量的当前值，动态控制第二个按钮的显示与隐藏

内容的提问来源于stack exchange，提问作者firmo23