setScience(proj="DeNormalizing")
wh <- getWH_already_on()
dbname <- "prod"

setSnowflake(wh=wh, dbname=dbname)

schema <- "bi"
tbl.out <- "yr_wk_to_date"


minDate <- as.Date(c(monday="2012-12-31"))
maxDate <- as.Date(c(sunday="2017-12-31"))
dates <- seq.Date(from=minDate, to=maxDate, by="7 days")

qry.inner <- sprintf("SELECT ('%s'::date) as d", dates) %>% pasteC(C=" \n UNION \n ")
qry <- sprintf("SELECT CASE WHEN (MONTH(d) = 12 AND WEEK(d) = 1) THEN YEAR(d) + 1 ELSE YEAR(d) END + WEEK(d)/100 AS yr_wk, d as yr_wk_as_date FROM (%s) ORDER BY 1", qry.inner)

sfPopulateTable(schema=schema, tbl=tbl.out, dbname=dbname, qry=qry, overwrite=TRUE)