require(lubridate)

SomLivre <- as.data.table(read.table(as.path(dataDir, "SOTW_SomLivre.csv"), sep=",", header=TRUE, colClasses=c(UPC="character", DATE="character")))
setnames(SomLivre, tolower(names(SomLivre)))


SomLivre[, date := as.Date(mdy(as.character(date)))]