# ~/git/orch/src/text_matching/create_tracknames_cleaned.r


setScienceIfNot(proj="text_matching")
setGitBranchToSystem(); .g();
wh <- getWH_already_on(c("Science", "bi_etl_jobs_standard", "looker_wh_large"))

{
  if (!exists("DT.tracknames_cleaned")) {
    DT.tracknames_cleaned <- sfQry("SELECT trackid, track_unique_id, trackname as track_name FROM production.dim_track")
    add_cleaned_column_(DT.tracknames_cleaned, cols="track_name", whitespace="both")
  }

  DT.tracknames_cleaned[, last_updated := now()]

  debugOn("ingestIntoSQL")
  ingestIntoSQL(DT=DT.tracknames_cleaned, tbl="tracknames_cleaned", schema="bi", datetime_type='TIMESTAMP_TZ', comment_tbl="from dim_track, cleaned in R", snowflake_inuse=TRUE)

}