A gist of programatically changing panel tabs in Shiny

server.R

library(shiny)

# Define server logic for random distribution application
shinyServer(function(input, output) {
  
	# Reactive expression to generate the requested distribution. This is 
	# called whenever the inputs change. The renderers defined 
	# below then all use the value computed from this expression
	data <- reactive({  
		dist <- switch(input$dist,
					   norm = rnorm,
					   unif = runif,
					   lnorm = rlnorm,
					   exp = rexp,
					   rnorm)
		
		dist(input$n)
	})
	
	# Generate a plot of the data. Also uses the inputs to build the 
	# plot label. Note that the dependencies on both the inputs and
	# the 'data' reactive expression are both tracked, and all expressions 
	# are called in the sequence implied by the dependency graph
	output$plot <- renderPlot({
		dist <- input$dist
		n <- input$n
		
		hist(data(), 
			 main=paste('r', dist, '(', n, ')', sep=''))
	})
	
	# Generate a summary of the data
	output$summary <- renderPrint({
		summary(data())
	})
	
	# Generate an HTML table view of the data
	output$table <- renderTable({
		data.frame(x=data())
	})
})

ui.R

library(shiny)

# Define UI for random distribution application 
shinyUI(pageWithSidebar(
  
	# Application title
	headerPanel("Tabsets"),
	
	# Sidebar with controls to select the random distribution type
	# and number of observations to generate. Note the use of the br()
	# element to introduce extra vertical spacing
	sidebarPanel(
		radioButtons("dist", "Distribution type:",
					 list("Normal" = "norm",
					 	 "Uniform" = "unif",
					 	 "Log-normal" = "lnorm",
					 	 "Exponential" = "exp")),
		br(),
		
		sliderInput("n", 
					"Number of observations:", 
					value = 500,
					min = 1, 
					max = 1000)
	),
	
	# Show a tabset that includes a plot, summary, and table view
	# of the generated distribution
	mainPanel(
		tabsetPanel(
			tabPanel("Plot", plotOutput("plot"),div(id="linkToSummary",tags$a("This is a link to Summary Tab")) ), 
			tabPanel("Summary", verbatimTextOutput("summary")), 
			tabPanel("Table", tableOutput("table"),HTML("<script>$('#linkToSummary').click(function() {
						 tabs = $('.tabbable .nav.nav-tabs li')
					 	 tabs.each(function() {
							$(this).removeClass('active')
					 	 })
						 $(tabs[1]).addClass('active')
						
						 tabsContents = $('.tabbable .tab-content .tab-pane')
					 	 tabsContents.each(function() {
							$(this).removeClass('active')
					 	 })
						 $(tabsContents[1]).addClass('active')

						$('#summary').trigger('change').trigger('shown');
						 
					 })</script>
			")	)
		)
	)
))