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

Question

我尝试在用户按下使用Shiny的Rmarkdown文档中的操作按钮后生成选项卡面板。

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

＆＃13;

＆＃13;

---
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")
```

＆＃13;

＆＃13;

＆＃13;

Answer 1

尝试

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