# -- TESTING WHICH WORK --- #

idvar <- "GVisID"
for (nm in grep("date", fbDTnms, ignore.case=TRUE, value=TRUE)[1:4] ) {
  chartid <- timeStamp(nm, seconds=FALSE)
  DT <- get(nm)
  DF <- as.data.frame(DT)

  chartid <- noDot(chartid)
  newnms <- noDot(names(DT))
  setnames(DT, newnms)
  DF <- as.data.frame(DT)
  DF <- data.frame(DF)


  G <- gvisMotionChart(DF, idvar=idvar, timevar=timevar, chartid=chartid)
  plot(G)
}