server.R

library(shiny)
library(ggplot2)
library(shinyIncubator)

# Define server logic required to summarize and view the selected dataset
shinyServer(function(input, output, session) {

  getData <- function(){
    x <- seq(Sys.Date() - (input$nobs - 1), Sys.Date(), by="days")
    y <- rnorm(input$nobs, 5, 100)
    Sys.sleep(1)
    return(data.frame(the_date=x, value=y))
  }

  output$chart <- renderPlot({
      result <- getData()  
      g <- ggplot(result, aes(x=the_date, y=value)) + geom_point()
      print(g)

  })

  output$table <- renderChart2({
     result <- getData()
     dTable(result, aaSorting = list(c(1, "asc")))
  })

})

ui.R

library(shiny)

shinyUI(pageWithSidebar(

  # Application title
  headerPanel(title=""),

  # Sidebar with controls to select a dataset and specify the number
  # of observations to view
  sidebarPanel(

    numericInput("nobs", "Number Observations", value=1000),
    submitButton("Submit")
  ),

 # Show a summary of the dataset and an HTML table with the requested
  # number of observations
  mainPanel(
     plotOutput("chart"),
     chartOutput("table", "datatables")
    ,width="1000")
))