Tab Carousel in Shiny

tabCarousel.R

require(shiny)
runApp(list(
  ui = pageWithSidebar(
    headerPanel("Tab Carousel"),
    sidebarPanel(),
    mainPanel(
      tabsetPanel(id = 'mytab',
        tabPanel("Plot", plotOutput("plot")),
        tabPanel("Summary", verbatimTextOutput("summary")),
        tabPanel("Table", tableOutput("table"))
      ),
      tags$script(HTML("var tabCarousel = setInterval(function() {
         var tabs = $('#mytab li'),
          active = tabs.filter('.active'),
          next = active.next('li'),
          toClick = next.length ? next.find('a') : tabs.eq(0).find('a');
          toClick.trigger('click');
      }, 3000);"))
    )
  ),
  server = function(input, output){
  }
))