R Shiny 使第二个动作按钮 2 在单击动作按钮 1 后出现

Question

我想我遗漏了一些非常简单的东西。

我希望我的用户单击操作按钮 1，以便显示操作按钮 2。但是如何在 ui 中“渲染”一个新的操作按钮？

我的代码如下。 非常感谢！

library(shiny)
ui = shinyUI(fluidPage(
  sidebarLayout(
    sidebarPanel(
      actionButton("button1", label = "Press Button 1")
    ),
    mainPanel(
      # what should I write here?
      #renderPrint("button2")
    )
  )
))

server = shinyServer(function(input, output, session) {
  observeEvent(input$button1, {
    output$button2 <- renderUI({
      actionButton("button2", label = "Press Button 2")
    })
  })
})
shinyApp(ui = ui, server = server)

Answer 1

如果你在服务器端使用renderUI()，你必须在ui端使用uiOutput()。

完整代码如下：

library(shiny)
ui = shinyUI(fluidPage(
  sidebarLayout(
    sidebarPanel(
      actionButton("button1", label = "Press Button 1")
    ),
    mainPanel(
      # what should I write here?
      uiOutput("button2")
    )
  )
))

server = shinyServer(function(input, output, session) {
  observeEvent(input$button1, {
    output$button2 <- renderUI({
      actionButton("button2", label = "Press Button 2")
    })
  })
})
shinyApp(ui = ui, server = server)