setScience(proj="DeNormalizing", subProj="apple_ids")
wh <- "cron_jobs_small"
dbname <- "prod"
tbl <- "apple_id_mapping"
schema <- "production"
cluster <- 4


setDBall(cluster=cluster)
DT.apple_ids <- runQry(makeQry(tbl=tbl, schema=schema, colsToPull="*", aggFunc=NULL), cluster=cluster)


setSnowflake(wh=wh, dbname=dbname, start=TRUE)
ingestIntoSQL(tbl=tbl, schema=schema, DT=DT.apple_ids, wh=wh, dbname=dbname)