## User Conversion Example.r

schema <- "SPOTIFY"
tbl.s  <- "STREAMS_FLAT"
tbl.u  <- "USERS_FLAT"

sfShowCols(tbl=tbl.u, schema=schema)
sfShowCols(tbl=tbl.s, schema=schema)


mq <- . %>% makeQry(tbl = ., colsToPull=c("USER_ID", "ACCESS"), distinct=TRUE, schema=schema, limit = NULL, minDate="2015-01-01", maxDate="2015-01-31", dateCol='<DATE_COL>')

qry.s <- tbl.s %>% mq
qry.u <- tbl.u %>% mq



   SELECT DISTINCT USER_ID, ACCESS
   FROM   <SPOTIFY.STREAMS_JOINED>
   WHERE  <DATE_COL> >= '20150101'
     AND  <DATE_COL> <= '20150131'


   SELECT DISTINCT USER_ID, ACCESS
   FROM   <SPOTIFY.USERS_FLAT>
   WHERE  <DATE_COL> >= '20150101'
     AND  <DATE_COL> <= '20150131'