demo.R

library(shiny)

addResourcePath("js", "/tmp/shinydemo")

runApp(list(
  ui = basicPage(
    tagList(singleton(
      tags$head(
      tags$script(src="js/shiny2.js"),
      tags$script(src="js/demo.js")
        )
      )),
    h2('The mtcars data'),
    dataTableOutput('mytable')
  ),
  server = function(input, output) {
    output$mytable = renderDataTable({
      mtcars
    },
    options=list(bRetrieve=TRUE)
    )
  }
))