R Shiny : name tabPanel with the number of clicks

Question

我正在创建一个应用程序，用户可以通过单击专用的 tabPanel 来创建新的 tabPanel。我知道该怎么做，但我不知道如何命名带有反应数字的 tabPanel。

为了更清楚起见，这里有一个可重现的示例:

library(shiny)
library(shinyWidgets)

ui <- navbarPage(position = "static-top",
                 title = "foo",
                 id = "tabs",
                 tabPanel(title = "Name 1",
                          fluidRow()),
                 tabPanel(title = "More",
                          icon = icon("plus"),
                          fluidRow()
                          )
                 )


server <- function(input, output) {

  count <- reactive({
    i <- 1
      if (input$tabs == "More"){
        i <- i + 1
      }
      else {i <- i}
    i
  })

  observeEvent(input$tabs, {
    id = paste0("Name ", count())
    if (input$tabs == "More")
    appendTab(inputId = "tabs",
              tabPanel(title = id,
                       fluidRow(column(
                         width = 12))
              ),
              select = TRUE)
  })

}


shinyApp(ui = ui, server = server)

如您所见，单击 tabPanel 更多 将创建一个新的 tabPanel。我希望 tabPanel 的名称采用“Name i”形式，其中“i”是现有 tabPanel 的数量(- 1 因为我不想考虑 tabPanel More 和+ 1 以防止开头出现两次相同的数字)。因此，我需要这个“i”具有反应性，因为它必须考虑用户创建的 tabPanel。

在我的代码中，您可以看到我尝试通过计算 tabPanel 更多 上的点击次数来计算 tabPanel 的数量，但这不起作用。我看到this post但我不知道如何修改它，因为我从未使用过 JavaScript。

有人有解决办法吗？

Answer 1

您可以将 count() 设为 reactiveVal 来解决此问题:

此外，您可能需要使用 insertTab 而不是 appendTab 来将“更多”选项卡保留在右侧:

library(shiny)
library(shinyWidgets)

ui <- navbarPage(position = "static-top",
                 title = "foo",
                 id = "tabs",
                 tabPanel(title = "Name 1",
                          fluidRow()),
                 tabPanel(title = "More",
                          icon = icon("plus"),
                          fluidRow()
                 )
)


server <- function(input, output) {

  count <- reactiveVal(1)

  observeEvent(input$tabs, {
    if (input$tabs == "More"){
      count(count()+1)
      id = paste0("Name ", count())
      insertTab(inputId = "tabs",
                tabPanel(title = id,
                         fluidRow(column(
                           width = 12))
                ), target = "More", position = "before",
                select = TRUE)}
  })

}


shinyApp(ui = ui, server = server)