A function to check if custom dimensions work (via Pawel Kapuscinski)

custom_dimension_check.r

library(Rcpp)
library(RGA)
profiles <- list_profiles()
webIDs <- unique(profiles$webPropertyId)
col <- c("id","accountId","webPropertyId","name","index","scope","active","working")
for(i in webIDs){
  assign("dims", list_custom_dimensions(accountId = unlist(profiles[which(profiles$webPropertyId==i)[1],2]),webPropertyId = i,token=token))
  for(j in dims$id){
    test<-get_ga(unlist(profiles[which(profiles$webPropertyId==i)[1],1]),
         start.date=start,
         end.date=end,
         metrics="ga:users,ga:sessions",
         dimensions=j,
         max.results = 3,
         token=token)
    Sys.sleep(1)
    if ( is.null(test) ) { 
      row <- c(dims[ which(dims$id==j),c(1:7)],"no")
    }else {
      row <- c(dims[ which(dims$id==j),c(1:7)],"yes")
      
    }
   col<- rbind(col,row)
  } 
}
colnames(col)[ncol(col)] <- "working"
col<- tail(col,nrow(col)-1)
rownames(col) <- c(1:nrow(col))
col<-as.data.frame(col)
col <- data.frame(lapply(col, as.character), stringsAsFactors=FALSE)
write.csv(col, "dimensions.csv")