## FOR TROUBLE SHOOTING & CONFIRMING DT NUMBERS
cc <- topropper(setdiff(unique(unlist(categ.cols.using)) , ""))
cc <- c(cc, "Impressions", "CTR", "Spend", "GVisID", ".GVisID")
cc <- nameToID(cc)

i <- 1

calcDT <- ALL.DTs.yes.totals.yes.dates[[i]]
mainDT.nm <- attributes(calcDT )$aggInfo$mainDT.nm
mainDT <- get( mainDT.nm )

mainDT[, intersect(cc, names(mainDT)), with=FALSE]
calcDT[, intersect(cc, names(calcDT)), with=FALSE]

compareDTs(mainDT, calcDT)
compareDTs(calcDT, unique(calcDT))


names(mainDT)

mainDT[Date==Date[[1]], intersect(cc, names(mainDT)), with=FALSE]
calcDT[Date==Date[[1]], intersect(cc, names(calcDT)), with=FALSE]







=====================
categ.cols.using <- c("Gender", "Age", "Campaign")

X <- c("campaIgn", "Age", "Ad", "Gender")



# TEST
DT.test <- getTotalForX("Gender", relativeTo=c("Campaign", "Ad"), DTnmsList=fbDTnms, useDate=TRUE, cleanIDcols=TRUE)

  if (!is.null(AddTotalFor))
    DT <- 
      rbind(DT, 
        setcolorder(
          cbind(setnames(as.data.table(list("TOTAL")), AddTotalFor), # adds a column whose name is the value of AddTotalFor
              produceDT(byCols=setdiff(byCols, AddTotalFor), AddTotalFor=NULL, useDate=useDate, DTnmsList=DTnmsList, addGVisID=FALSE)
          ) # close cbind
        , names(DT) ) # close setcolorder 
      ) # close rbind
  # --------------------------------- #