setScience(proj="ContentAnalysis", subProj="SpotifyLiveContent")
setGitBranchToSystem(); .g()

files <- extractIngestFiles(subFolder="Spotify Deliveries", ext="csv")



rowcounts <- sapply(files, fRowcount, header=TRUE)
ll_DTs <- lapply(files, fread, header=TRUE)

DT <- rbindlist(ll_DTs)

head (copy(DT)[, countries := NULL])