Simple matrixInput example

server.R

library(shiny)

shinyServer(function(input, output) {
  output$plot <- reactivePlot(function() {
    plot(input$foo)
  })
})

ui.R

library(shiny)
library(shinyIncubator)

shinyUI(pageWithSidebar(
  headerPanel('Simple matrixInput example'),
  sidebarPanel(
    matrixInput('foo', 'Foo', head(cars))
  ),
  mainPanel(
    plotOutput(outputId='plot')
  )
))