Create button to switch tabs
tabSwitchUI(.tab, id)
The tabItem
object.
The input variable to read value from.
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()
}