隐藏闪亮的输出

Question

如何隐藏渲染的shiny 输出？具体来说，我有一些由shiny 生成的图形/表格，并且我有一个按钮，单击该按钮时应隐藏图形/表格，再次单击时应显示它们。

这是我目前所拥有的（如下），它在一定程度上起作用，但是它应该隐藏renderPlot 输出的地方，我试图让文档中的一个很大的空白消失。

应该可以将此代码复制并粘贴到 Rstudio 并点击运行文档（它是带有闪亮运行时的 rmarkdown）。

---
runtime: shiny
---

```{r, echo=F}
actionButton("hide", "Hide")
dat <- data.frame(a=1:10, b=rexp(10, 1/10), c=letters[sample(1:24, 10)])
renderTable({
    if (input$hide %% 2 == 1)
        dat
})

```
lodi dodi

```{r, echo=F}
renderPlot({
    if (input$hide %% 2 == 1)
        plot(b ~ a, data=dat)
})

```
this text is separated by blank space, but it shouldn't be

Answer 1

您可以使用shinyjs 包通过hide() 函数隐藏元素（或使用toggle() 函数在隐藏和显示之间切换）。免责声明：我写了那个包。

我以前从未在 rmarkdown 中使用过它，所以我将展示如何在普通的闪亮应用程序中使用它，并使用 shinyApp() 函数在 rmarkdown 中包含一个完整的闪亮应用程序。您可以阅读here，了解如何在 rmarkdown 文档中包含闪亮的应用程序。

---
runtime: shiny
---

```{r, echo=F}
suppressPackageStartupMessages(
  library(shinyjs)
)

dat <- data.frame(a=1:10, b=rexp(10, 1/10), c=letters[sample(1:24, 10)])

shinyApp(
  ui = fluidPage(
    useShinyjs(),
    actionButton("hide", "Hide"),
    p("Text above plot"),
    plotOutput("plot"),
    p("Text below plot")
  ),
  server = function(input, output, session) {
    output$plot <- renderPlot({
      plot(b ~ a, data=dat)
    })

    observeEvent(input$hide, {
      hide("plot")
      # toggle("plot") if you want to alternate between hiding and showing
    })
  },
  options = list(height = 700)
)
```

为了能够使用 hide，我必须：

• 安装并加载shinyjs
• 在 UI 中添加对 useShinyjs() 的调用
• 在要隐藏/显示的元素上调用 hide 或 toggle

希望对你有帮助