# addTestWkCols.r

addTestWkCols_ <- function(DT) {
  if (!exists("dateBoundaries"))
    stop ("cannot find dateBoundaries. It should be in the first file.")


  for (col in c("TestWk", "TestWk.dates"))
    if (col %in% names(DT))
      DT[, (col) := NULL]

  for (nm in names(dateBoundaries)) {
    dates <- dateBoundaries[[nm]]
    DT[date >= dates[[1]] & date <= dates[[2]], TestWk := nm]
    DT[date >= dates[[1]] & date <= dates[[2]], TestWk.dates := makeStringFromDateRange(dates) ]
  }

  ## make into factors
  DT[ , TestWk       := factor(TestWk,        levels=names(dateBoundaries))]
  DT[ , TestWk.dates := factor(TestWk.dates,  levels=sapply(dateBoundaries, makeStringFromDateRange))]

  return(invisible(DT))
}