nms.anl <- qShowCols("aggregated_analytics")
nms.acc <- qShowCols("aggregated_accounting")

nms.diff <- allSetDiff(nms.anl, nms.acc)

lapply(nms.diff, extract, pat="country")

lapply(nms.diff, function(x) setdiff(x, c("")))