create several PDTs to compare bi to fact analytics

starting with analytics

setScience("dbconcile", subProj="PDTs4Looker", load=FALSE, subl=FALSE)
wh <- getWH_already_on(default=getWH_by_interactive("cron_jobs_small"))
dbname <- "prod"
setSnowflake(wh=wh, dbname=dbname)



schema.bi <- "bi"
tbl.bi <- "analytics_track_level"

colsToPull <- c("activity_date", "artistid", "artist_name", "countryid", "country_name", "releaseid", "release_name", "storeid", "store_name", "transac_typeid", "transac_type", "transac_type_abbr", "transac_type_group", "from_errors_table")
colsToAgg <- c("freeunits", "labelid", "paidunits", "royaltydollar", "units")
colsWithaggFunc <- c(row_count_for_group="count(*)")

qry.bi <- makeQry(tbl=tbl.bi, schema=schema.bi, colsToPull=colsToPull, colsToAgg=colsToAgg, colsWithaggFunc=colsWithaggFunc, orderby=colsToPull, limit=NULL)

sfCreateSchema(schema="data_checks", dbname=dbname)

QRY.RUN <- setQry(sprintf("CREATE OR REPLACE VIEW data_checks.%s_%s__counts AS (\n  %s\n);", schema.bi, tbl.bi, removeText("\\s*;\\s*", qry.bi)))


sfQry(QRY.RUN, wh=wh, dbname=dbname)