# u <- DB.mini[SpotifyAdds, nomatch=0][!is.na(wk1), sort(unique(upc), decreasing=TRUE)][2:5]
u <- c("887845392275", "887845347442", "887845198686", "887845113764")

wcols <- extractnms("w1", SpotifyAdds)

setkey(SpotifyAdds, upc)

## TEMP DATA
S <- copy(SpotifyAdds[u, c("upc", wcols, "format"), with=FALSE])
D <- copy(DB.mini[u, c("upc", "download_date", "artist_country", metcols, "customerid"), with=FALSE])

D <- D[c(1:2, nrow(D))]

S[, upc := LETTERS[as.numeric(factor(upc))]]
D[, upc := LETTERS[as.numeric(factor(upc))]]
D[, customerid := paste0("cust_", as.numeric(factor(upc))) ]
D <- rbind(D, D[nrow(D), c(upc="Z", .SD[, !"upc", with=FALSE])])


setkeyIfNot(D, upc)
setkeyIfNot(S, upc)

D[S, allow.cartesian=TRUE, nomatch=NA]
D[S, nomatch=0]


S[D, allow.cartesian=TRUE, nomatch=NA]
S[D, nomatch=0]

merge(DB.raw, SpotifyAdds)
merge(DB.raw, SpotifyAdds, all=TRUE)