# 04c Indiv Tables.r


# -------------------------------- # 
# CREATE CAMPAIGN TABLE FROM  fb   #
# -------------------------------- # 

  camp.info.cols <- c("Campaign", "Ad", "Label")
  camp.info.cols <- c(nameToID(camp.info.cols), camp.info.cols)

  ## TODO:
  info.cols <- camp.info.cols
  keybyCol <- "CampaignID"
  sdcols  <- setdiff(camp.info.cols, keybyCol)
  camp.DT <- copy(unique(
                  fb[, .SD,  .SDcols=sdcols, keyby=keybyCol]
                , by=c(keybyCol, sdcols) ))


  camp.DT[, CampShort := cleanCampName(Campaign)]


  camp.cols.mets <- c("CTR", "CPC", "CPM", "Spend", "Impressions", "Clicks")
  camp.METS <- fb_agg_campaign[, .SD, keyby=keybyCol, .SDcols=camp.cols.mets]  




# -------------------------------- # 




# 06 Ship To Shiny.r

shinyFolder <- as.path(srcDir, "FBShiny_app", expand=FALSE)
outs <- c(C.DT.out= "C.DT"
        , C.METS.out = "C.METS")
ext   <- ".RDS"

f.outs <- c()
f.outs[c("C.DT", "C.METS")] <- as.path(shinyFolder, outs, ext=ext, expand=FALSE)

saveRDS(camp.DT,   file=f.outs[["C.DT"]] )
saveRDS(camp.METS, file=f.outs[["C.METS"]] )
cat("\nFILES LOCATED IN: \n\t", c(shinyFolder, f.outs), "\n", sep="\n\t")