# fixLookerColNames_.r

fixLookerColNames_ <- function(DT) {

  ### FIX NAMES
  nms <- names(DT)
  nms <- gsub(" Name$", "", nms, ignore.case=TRUE)
  nms <- gsub("^(ACCOUNTING|ANALYTICS|INSIGHTS|COUNTRY|TRANSACTIONTYPE)( DATE)?( )", "", nms, ignore.case=FALSE)

  ## Clean up any additional Date names.  Eg   ACCOUNTING DATE Date Month.
  nms <- gsub("^(Date|Monthyear)( )", "", nms, ignore.case=TRUE)


  ## Only replace "Continent Group" if there is exactly one Continent Column
  if (sum(grepl("Continent", nms)==1))
    nms <- gsub("Continent Group", "Continent", nms, ignore.case=FALSE)
  ## Make propper
  nms <- topropper(nms)

  ## Make " Or " lowercase
  nms <- gsub(" Or ", " or ", nms)

  ## Replace spaces with underscores
  nms <- gsub(" ", "_", nms)

  setnames(DT, nms)
}