你如何隐藏渲染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