...I'm trying to add an action button to swap tabs in shiny but it doesn't seem to work 
library(shiny)
library(shinydashboard)
library(DT)
library(tidyverse)
# Application title
header <- dashboardHeader(title = "Customer Acquisition compared to Customer Retention")
# Sidebar with a slider input for number of bins
sidebar <- dashboardSidebar(
sidebarMenu(id = "tabs",
menuItem("Marketing", tabName = "Marketing", icon = icon("dashboard")),
menuItem("Customer Retention", tabName = "CustomerRetention", icon=icon("dashboard"))
))
body <- dashboardBody(
tabItems(
tabItem(tabName = "Marketing",
h3("Annual Marketing Costs") ,
actionButton("switchtab", "Look at Customer Retention")),
tabItem(tabName = "CustomerRetention",
h3("Annual Costs Spent on Existing Customers"))))
ui <- dashboardPage(skin="blue",
header,
sidebar,
body
)
server <- function(input, output) {
observeEvent(input$switchtab, {
newtab <- switch(input$tabs,
"CustomerRetention" = "Marketing",
"Marketing" = "CustomerRetention")
updateTabItems(session, "tabs", newtab)
})
}
shinyApp(ui = ui, server = server)