f.in <- ingest.p("EU_pricing_UPCs_with_weekly_price_change.csv")
DT.groupings <- fread(f.in)
DT.groupings <- DT.groupings[!is.na(category)]
setInfo(DT.groupings, paste0("All the candidate UPCs along with\nwhich price tier each will belong to wk1 and wk2\n\nIngested via fread() from \n'", gsub(ingestDir, "[ingestDir] ", f.in), "'\nwhich was created in Pretest section and is now static"))
setnames(DT.groupings, "releaseid", "upc")
upcToID_(DT.groupings)
setkeyIfNot(DT.groupings, upc, verbose=FALSE)

upcs.changing <- DT.groupings[Price_Wk1 != 8.99, upc]