## GRAB SAMPLE TABLES 


.us()
setDBall()

DT.anal <- runQry("
        SELECT * FROM (SELECT * FROM aggregated_analytics WHERE storeid = 1   AND download_accounting_month = '2014-01-01'   LIMIT 250 )
  union SELECT * FROM (SELECT * FROM aggregated_analytics WHERE storeid = 1   AND download_accounting_month = '2014-01-02'   LIMIT 250 )
  union SELECT * FROM (SELECT * FROM aggregated_analytics WHERE storeid = 286 AND download_accounting_month = '2014-01-01'   LIMIT 250 )
  union SELECT * FROM (SELECT * FROM aggregated_analytics WHERE storeid = 286 AND download_accounting_month = '2014-01-02'   LIMIT 250 )
"
  )

DT.acc <- runQry("
        SELECT * FROM (SELECT * FROM aggregated_accounting WHERE storeid = 1   AND accounting_date = '2014-01-01'   LIMIT 250 )
  union SELECT * FROM (SELECT * FROM aggregated_accounting WHERE storeid = 1   AND accounting_date = '2014-01-02'   LIMIT 250 )
  union SELECT * FROM (SELECT * FROM aggregated_accounting WHERE storeid = 286 AND accounting_date = '2014-01-01'   LIMIT 250 )
  union SELECT * FROM (SELECT * FROM aggregated_accounting WHERE storeid = 286 AND accounting_date = '2014-01-02'   LIMIT 250 )
"
  )


setScience(proj="chartio")

jesusForData(DT.anal)
jesusForData(DT.acc)