perhaps an alternate approach to navigate tabpanels
library(shiny)
ui <- tagList(
navbarPage(
title="tab example",
id = "navbar",
tabPanel(
title = "tab1",
actionButton("button", "Click me")
),
tabPanel(
title = "tab 2",
value = "mytab2",
p("stuff is here")
)
)
)
server <- function(input, output, session) {
observeEvent(input$button,
{
updateNavbarPage(session, "navbar",
selected = "mytab2")
})
}
shinyApp(ui = ui, server = server)