R 防止在添加另一个选项卡面板时丢失用户输入数据

我正在将TabPanel动态添加到tabsetPanel。但是，要添加选项卡，我正在重新创建整个tabsetPanel，这也会删除用户已经输入的所有数据。在示例代码中，当对选项卡1上的selectInput进行了一些选择，然后单击Add tab按钮时，选项卡1上的选择就消失了

与在新tabsetPanel生成之前存储并在之后重新设置选项卡相比，有没有更简单/更好的方法来添加选项卡而不丢失用户输入

（是否可以“操纵”选项卡SetPanel以添加另一个选项卡？）

库（闪亮）
塔丁
library(shiny)

TSTAddin <- function() {
  ui <- fluidPage( 
    actionButton('addTab','Add Tab'),
    uiOutput('panelset')
  )

  server <- function(input, output, session) {
    output$panelset <- renderUI({
      panL <- lapply(1:(input$addTab + 1), function(x) {tabPanel(paste0('Pan',x), selectInput(paste0('in',x), label=x, choices=LETTERS[1:10]))})
      do.call(tabsetPanel, panL)
    })
  }

  viewer <- paneViewer(300)
  runGadget(ui, server, viewer = viewer)
}
TSTAddin()