title: R shiny, load data based on input
body: <p>I have data for each day in server side and want to load data based on date input </p>
  
  <p>On server side, I have this:</p>
  
  <pre><code> dateInput("date","Enter a date:",value = "2014-01-13"))
  </code></pre>
  
  <p>On UI side, </p>
  
  <pre><code>library(shiny)
  library(googleVis)
  library(rpart.plot)
  
  load("data_2014_01_13_new.RData")  #seg and fit are data in this file
  shinyServer(function(input, output) {
      output$values &lt;- renderGvis({
        gvisTable(seg[seg$rate &gt;= input$test[1] &amp; seg$rate &lt;= input$test[2],])
      })
      output$plot &lt;- renderPlot({
       prp(fit,extra=T)
      })
  })
  </code></pre>
  
  <p>I want to put load into server function and can load different data as date changes. Thanks!</p>