global.R

require(shiny)
require(rCharts)

names<- letters
numbers <- 1:26
dates <- rep(as.Date(c("2010-01-01","2011-07-23","2011-01-03")),8)
dates <- c(dates,as.Date(c("1999-12-25", "2005-07-13")))

df <- data.frame(names=names,numbers=numbers,dates=dates)

server.R

shinyServer(function(input, output, session) {

    
  output$weeklyTable <- renderChart2({
  #  print(df) confirms data in
    dt <- dTable(
      df
    )
    dt
  })
  
  output$testText <- renderText({
  "test text"
})

  
})

ui.R

shinyUI(pageWithSidebar(
  
  
  headerPanel(""),
  
  
  sidebarPanel(
  ),  
  mainPanel(
    chartOutput("weeklyTable","datatables"),
    textOutput("testText") # confirms connection
 
  )
 
               ))