lib(bit64)
schema <- "bi"
tbl <- "subgenres_exported"

setScience("DeNormalizing")
setSnowflake(wh="LOOKER_WH_LARGE")
options(snowflake_msg_sf=FALSE)

setGitBranchToSystem(); .g()

## This is how I created the two main file formats
if (FALSE) {
  sfCreateFileFormat.CSV("RICKS_TSV_HEADER", header=TRUE, gzip=FALSE, delimiter="\t", quote_string="\"", dbname="prod", schema="public")
  sfCreateFileFormat.CSV("RICKS_CSV_HEADER", header=TRUE, gzip=FALSE, delimiter=",",  quote_string="\"", dbname="prod", schema="public")
}

## wrapper function
func.create <- . %>% create_and_populate_table_form_csv(ingest.p(., ext="csv"), tbl=., schema=schema, dbname="prod", replace=TRUE, sep="\t")

## Execute on each table
func.create("orchard_subgenres")
func.create("release_subgenre")

{
  print(headDB("orchard_subgenres", schema=schema, snowflake=TRUE, msg_sf=FALSE))
  catn(sep="\n", "")
  print(headDB("release_subgenre",  schema=schema, snowflake=TRUE, msg_sf=FALSE))
}