r - 消失的按钮 - 点击后

Question

我希望在 sidebarPanel 中有一个按钮(例如 A)，以便在使用它后另一个按钮(例如 B)将被激活(通过 renderUI)，但是按钮 A 将消失。我怎样才能做到这一点

这是我的幼稚解决方案。我不知道如何避免将按钮状态引用到自身:

library(shiny)
runApp(list(

   ui = fluidPage(
      uiOutput("answer"),
      uiOutput("part2")
      ),

   server = function(input, output) {

      output$answer <- renderUI({
         if(input$continue == 0){
            checkboxGroupInput(inputId = "firstQ", label = "First question", choices = c("Ans. A" = "a", "Ans. B" = "b"))
            actionButton("continue", "Continue")}
      })

      output$part2 <- renderUI({
         if(input$kontynuuj > 0)
            actionButton("newButton", "New button")
      })

   }
))

Answer 1

我认为conditionalPanel在你的ui是你需要在这里使用的。它可以让您设置一个条件来确定是否显示部分 UI。

在下面的代码中，我移动了 checkboxGroupInput和第一个actionButton到 ui，留下第二个 actionButton作为renderUI 。 conditionalPanel无论哪种方式都会起作用。

每个conditionalPanel评估“继续”按钮，第一个在按下之前显示，第二个在按下后显示。

需要注意，条件必须用 javascript 编写，而不是 R。请参阅 ?conditionalPanel了解详情。

library(shiny)
runApp(list(
  ui = fluidPage(             
     conditionalPanel(condition="input.continue==0",
          checkboxGroupInput(inputId = "firstQ", label = "First question", 
              choices = c("Ans. A" = "a", "Ans. B" = "b")), 
          actionButton("continue", "Continue")   
      ),

      conditionalPanel(condition="input.continue>0",
          uiOutput("part2")
      )
  ),

  server = function(input, output) {
    output$part2 <- renderUI({
        actionButton("newButton", "New button")
    })

  }
))