在我的testNG集成测试中，我可以多次使用@factory（使用Jenkins和Maven进行构建）？(In my testNG integration tests can I use @factory more than once (using Jenkins and Maven for my builds)?)

 我认为这适用于您想要的，为您的动态输出创建选项卡。 面板的顺序需要重新排列，数据帧被拉入无功元素： 
 
 Server.R ： 
 
library(shiny)
library(dplyr)
# Define server logic
function(input, output) {

# Reactive expression to compose a data frame containing all of
# the values
selection_gear <- reactive({
x.gear=filter(mtcars, cyl == input$dynamic)
x.table=table(x.gear$gear)
x.vs=sum(x.gear$vs)
# Compose tab "Gear" data frame
data.frame(
  Name = c(unique(x.gear$gear),
           "vs"),
  Value = as.character(
    c(x.table, 
        x.vs), 
  stringsAsFactors=FALSE))
})
selection_carb <- reactive({
y.carb=filter(mtcars, cyl == input$dynamic)
y.table=table(y.carb$carb)
y.am=sum(y.carb$am)
# Compose tab "Carb" data frame    
data.frame(
  Name = c(unique(y.carb$carb),
           "am"),
  Value = as.character(c(y.table,
                         y.am),
  stringAsFactor=FALSE))
})

# Show the values of the "Gear" data frame using an HTML table
output$Gear <- renderTable({
selection_gear()
})

# Show the values of the "Carb" data frame using an HTML table
output$Carb <- renderTable({
selection_carb()
})
}
 
 ui.R ： 
 
library(shiny)

shinyUI(navbarPage("MTCARS",
        tabsetPanel(
            tabPanel("Sélection",
                radioButtons("dynamic", label = "Cars",
                choices = list("4 cylinders" = 4, "6 cylinders" = 6,
                    "8 cylinders" = 8))),
                tabPanel("Gear",
                    tableOutput("Gear")
                ),
                tabPanel("Carb",
                    tableOutput("Carb")
                )
            )
        )
    )

I think this works for what you want, creating the tabs for your dynamic output. The order of the panels needed to be re-arranged and the data frames pulled into reactive elements:
 
Server.R:
 
library(shiny)
library(dplyr)
# Define server logic
function(input, output) {

# Reactive expression to compose a data frame containing all of
# the values
selection_gear <- reactive({
x.gear=filter(mtcars, cyl == input$dynamic)
x.table=table(x.gear$gear)
x.vs=sum(x.gear$vs)
# Compose tab "Gear" data frame
data.frame(
  Name = c(unique(x.gear$gear),
           "vs"),
  Value = as.character(
    c(x.table, 
        x.vs), 
  stringsAsFactors=FALSE))
})
selection_carb <- reactive({
y.carb=filter(mtcars, cyl == input$dynamic)
y.table=table(y.carb$carb)
y.am=sum(y.carb$am)
# Compose tab "Carb" data frame    
data.frame(
  Name = c(unique(y.carb$carb),
           "am"),
  Value = as.character(c(y.table,
                         y.am),
  stringAsFactor=FALSE))
})

# Show the values of the "Gear" data frame using an HTML table
output$Gear <- renderTable({
selection_gear()
})

# Show the values of the "Carb" data frame using an HTML table
output$Carb <- renderTable({
selection_carb()
})
}
 
ui.R:
 
library(shiny)

shinyUI(navbarPage("MTCARS",
        tabsetPanel(
            tabPanel("Sélection",
                radioButtons("dynamic", label = "Cars",
                choices = list("4 cylinders" = 4, "6 cylinders" = 6,
                    "8 cylinders" = 8))),
                tabPanel("Gear",
                    tableOutput("Gear")
                ),
                tabPanel("Carb",
                    tableOutput("Carb")
                )
            )
        )
    )