setScience(proj="DeNormalizing", subProj="fx_rates_payout_statements_db")
setScience("misc", subProj="currency")

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

setDBall("statements")
fx_rates_payout_statements_db <- runQry("SELECT * FROM fx_rates_payout order by 1, 2, 3")

if (FALSE)
  writeDT(DT=fx_rates_payout_statements_db, to="dataRequests@theorchard.com")

setSnowflake(wh="looker_wh_large")
ingestIntoSQL(DT=fx_rates_payout_statements_db, schema=schema.out, tbl=tbl.out)

sourceSupportFns(proj="Looker")
create_lookml_from_tbl(tbl=tbl.out, schema=schema.out)