Create button to switch tabs

tabSwitchUI(.tab, id)

Arguments

.tab

The tabItem object.

id

The input variable to read value from.

Examples

if (interactive()) {
  library(shinydashboard)
  library(magrittr)
  library(dcamodules)
  # add after tabItems via pipe %>%
  # or move tabItems inside of tabSwitchUI
  tabItems(
    tabItem(tabName = "awesome-tab")
  ) %>% tabSwitchUI()
}