在闪亮触发操作按钮后创建选项卡

Question

我正在尝试在用户按下使用 Shiny 的 Rmarkdown 文档中的操作按钮之后生成一个标签面板。

这是迄今为止我所拥有的一个最小可行示例（没有产生预期的结果）：

---
title: "Test Doc"
output: html_document
runtime: shiny
---

```{r, echo = FALSE, results="hide", message=FALSE, warning=FALSE}
library(shiny)
library(rmarkdown)
```

```{r, echo = FALSE, cache=FALSE}
sidebarPanel(
  actionButton("testButton", label="Test!",
                            icon=icon("search"))
)
```

```{r, echo = FALSE, cache=FALSE}
tab_test_1<-eventReactive(input$testButton, {
  output$tab_test<-renderUI({
    tabsetPanel(tabPanel("Plot"))
  })
})
uiOutput("tab_test")
```

Answer 1

试试

```{r, echo = FALSE, cache=FALSE}
output$tab_test<-renderUI({
    req(input$testButton);
    tabsetPanel(tabPanel("Plot"))
  })
uiOutput("tab_test")
```