server.R

library(shiny)
library(datasets)

shinyServer(function(input, output) {

  ## Inputs;
  output$uitextInput <- renderUI({
    textInput("caption", "Caption:", "Data Summary")
  })
  
  output$uiselectInput <- renderUI({
    selectInput("dataset", "Choose a dataset:", 
                choices = c("rock", "pressure", "cars"))
  })
  
  output$uinumericInput <- renderUI({
    numericInput("obs", "Number of observations to view:", 10)
  })
  
  
  
  datasetInput <- reactive({
    switch(input$dataset,
           "rock" = rock,
           "pressure" = pressure,
           "cars" = cars)
  })

  output$caption <- renderText({
    input$caption
  })
  
  output$summary <- renderPrint({
    dataset <- datasetInput()
    summary(dataset)
  })
  
  output$view <- renderTable({
    head(datasetInput(), n = input$obs)
  })
})

ui.R

library(shiny)

shinyUI(bootstrapPage(
  tagList(
    tags$head(
      tags$script(type="text/javascript", src = "inputTracking.js")
    )
  ),
  
  div(class = "span4",
      uiOutput("uitextInput"),
      uiOutput("uiselectInput"),
      uiOutput("uinumericInput")
  ),
  
  div(class = "span8",
    h3(textOutput("caption")), 
    
    verbatimTextOutput("summary"), 
    
    tableOutput("view")
  )
))

www\inputTracking.js

$(document).on("change", "input.shiny-bound-input, select.shiny-bound-input", function(e){
	var $target = $(e.target);
	if ($target.attr("type") === "checkbox") {
		alert(e.target.checked);
	}
	else {
		alert($target.val());
	}
});