DataTables

I think it should be ready now. See live examples at http://glimmer.rstudio.com/yihui/datatables/

Source:

```s
library(shiny)
runApp(list(ui = basicPage(
  #textInput('foo', 'Foo'),
  h2('The large diamonds data'),
  dataTableOutput("mytable1"),
  h2('The small mtcars data'),
  dataTableOutput("mytable2"),
  h2('Customize the length drop down menu'),
  dataTableOutput("mytable3")
), server = function(input, output) {
  output$mytable1 = renderDataTable({
    library(ggplot2)
    diamonds
  })
  output$mytable2 = renderDataTable({
    mtcars
  })
  output$mytable3 = renderDataTable({
    iris
  }, options = list(aLengthMenu = c(5, 30, 50)))
}))
```