Provides an way to check if eVars in Adobe Analytics are receiving data and also a way to see what the data look like.

eVarsTesting.R

library(RSiteCatalyst)
library(dplyr)
library(lubridate)

SCAuth(
  "key",
  "secret",
  "company"
)

rs = "reportsuitename"

evars = GetEvars(rs)
evars = filter(evars, enabled == "TRUE" | is.na(enabled))
evars = evars[,c(3,1)]

eVarsTesting = data.frame()
for (i in 1:nrow(evars)) {
  print(evars$id[i])
  x = QueueTrended(
    rs,
    today()-7,
    today(),
    metrics = c("uniquevisitors", "visits"),
    elements = evars$id[i]
  )
  x$eVar = evars$id[i]
  x$eVarName = evars$name[i]
    eVarsTesting = rbind(eVarsTesting, x)
  
}

eVarsTesting = eVarsTesting[,c(8,9,1:7)]

write.csv(eVarsTesting, paste(rs, today(), "eVarsTesting.csv", sep = "-"))