From 69e117245389088a7c9e37718f6c8bff50ae9a5b Mon Sep 17 00:00:00 2001
From: Ben Anderson <dataknut@icloud.com>
Date: Sun, 15 Dec 2019 18:17:44 +0000
Subject: [PATCH] amended tests

---
 tests.R | 13 ++++++++-----
 1 file changed, 8 insertions(+), 5 deletions(-)

diff --git a/tests.R b/tests.R
index f0a5074..b51c91d 100644
--- a/tests.R
+++ b/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))
+
+
-- 
GitLab