.us()
setScience("map", create=TRUE, subl=FALSE)

{
 Q <- 
"
SELECT  F.*, 
        s.storename, 
        z.zipcode, 
        z.city, 
        z.state, 
        z.latitude, 
        z.longitude
FROM
  (
    SELECT sum(units) AS units,
          zipid,
          storeid, 
          EXTRACT('month' from download_activity_date) as month
    FROM fact_analytics
    WHERE download_activity_date >= '2013-01-01'
      AND download_activity_date < '2014-01-01'
      AND storeid in (453, 1, 286, 187)
      AND countryid = 1
      AND NOT zipid is NULL
    GROUP BY 
          zipid,
          storeid, 
          month
    ORDER BY month, zipid
  ) F
LEFT JOIN dim_store s 
on F.storeid = s.storeid
LEFT JOIN 
  (
    SELECT zipid, zipcode, city, state, latitude, longitude
    FROM dim_zip
  ) z
on F.zipid = z.zipid

"


  ZipsByStore <- runQry(Q)
  if (!is.null(ZipsByStore))
    jesusForData(ZipsByStore)
}