r - 如何使用 Shiny 的actionButton来显示和隐藏文本输出？

Question

我正在尝试编写一个带有 actionButton 的简单 Shiny 应用程序。当按下 actionButton 时，一些文本输出应该直接打印在下面。下面的代码引导我找到解决方案:

shinyApp(
  ui = shinyUI( fluidPage(
    actionButton("button", "don't press the button"),
    verbatimTextOutput("text")
  )
  ),
  server = function(input, output, session){
    observeEvent(input$button, {
      output$text <- renderText({"ahh you pressed it"})
    })
  }
)

有两件事我想改变，但不确定如何改变:

1)上面的代码在按下按钮之前显示一个空的灰色框 - 我希望在按下按钮之前没有任何内容。看起来 conditionalPanel 可能是正确的方法，但不确定如何实现。

2)上面的代码是否可以修改，以便一旦再次按下按钮，文本输出就会再次隐藏？

Answer 1

您可以使用 shinyjs、hidden 和 toggle 尝试此操作

library(shiny)
library(shinyjs)

shinyApp(
  ui = shinyUI(fluidPage(useShinyjs(), 
    actionButton("button", "don't press the button"),
    hidden(
      div(id='text_div',
        verbatimTextOutput("text")
        )
    )
  )
  ),
  server = function(input, output, session){
    observeEvent(input$button, {
      toggle('text_div')
      output$text <- renderText({"ahh you pressed it"})
    })

  }
)