amended tests

tests.R

@@ -11,9 +11,6 @@ dataPath <- "~/Data/SAVE/" # amend to suit local
 
 rawDP <- paste0(dataPath, "/navetas/s3_15m/original/")
 
-# check this works
-fileList <- saveData::getWhFileList(rawDP)
-
 rawF <- paste0(dataPath, "navetas/s3_15m/original/NAX-2017-07-30.csv.gz")
 processedF <- paste0(dataPath, "processed/jan2017clamp15minuteData.csv.gz")
 
@@ -47,9 +44,15 @@ make(plan)
 wHRawDT <- drake::readd(wHRawD)
 wHprocessedDT <- drake::readd(wHprocessedD)
 
-#system.time(u_dt_dplyr <- dplyr::distinct(wHRawDT))
-#system.time(u_dt_data.table <- data.table::unique(energyDT)) # breaks why?
+# test package functions ----
+
+fileList <- saveData::getWhFileList(rawDP)
+
+# > electricity consumption data processing ----
+
 dt <- copy(wHRawDT) # otherwise it acts on original due to 'by reference' nature of data.table
 
 # could put this in drake too
 system.time(procDT <- saveData::processWhData(dt))
+
+