вставить вкладку в bs4Dash

Question

Я не могу добавить дополнительную вкладку для своего приложения.
Код по умолчанию shiny пример:

library(shiny)
library(bs4Dash)

ui <-  bs4DashPage(
  sidebar_collapsed = T,
  sidebar = bs4DashSidebar(),
  bs4DashFooter(),
  body = bs4DashBody(
  bs4TabSetPanel( id = "id", side = "left",
                  bs4TabPanel(
                    tabName = "Main",
                    active = TRUE,
                    p("Text"),
                    actionButton("add","ADD")))
))

server <- function(input, output, session) {

  observeEvent(input$add, {
    insertTab(inputId = "id",
              bs4TabPanel(tabName = "Dynamic"),
              target = "Main"
    )
  })
}

shinyApp(ui, server)

Спасибо за любые предложения