# 14_b DoubleChecking Conversions.r

## This user id bounces back and forth a lot. 
## Also, there is something odd at oct31 / nov 1
uid <- "0000023b43b307354943ae74caff3886"

Q <- paste("SELECT * FROM staging_raw_spotify WHERE customerid in ", pasteQ(uid), ";")
qres <- runQry(Q)

colsNotUsing <-  c("trackid", "download_date", "isrc", "zip",  "gender", "birthyear", "upc", "trackname", "albumname", "original_upc")
qres[, c(colsNotUsing) := NULL]



minDate <- as.POSIXct(as.Date("2013-10-10"))
maxDate <- as.POSIXct(as.Date("2013-11-10"))

dd <- qres[download_datetime > minDate & download_datetime < maxDate]  [order(download_datetime)] [20:22, download_datetime]
qres[, coerceddate := as.Date(download_datetime)]

strptime(dd)

as.Date(strptime(dd, format="%Y-%m-%d"))