Skip to content
Snippets Groups Projects
Commit 69e11724 authored by Ben Anderson's avatar Ben Anderson
Browse files

amended tests

parent d1eaf88c
Branches
No related tags found
No related merge requests found
Show whitespace changes
Inline Side-by-side
Showing
with 8 additions and 5 deletions
tests.R
+ 8
− 5
View file @ 69e11724
...@@ -11,9 +11,6 @@ dataPath <- "~/Data/SAVE/" # amend to suit local ...@@ -11,9 +11,6 @@ dataPath <- "~/Data/SAVE/" # amend to suit local
rawDP <- paste0(dataPath, "/navetas/s3_15m/original/") 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") rawF <- paste0(dataPath, "navetas/s3_15m/original/NAX-2017-07-30.csv.gz")
processedF <- paste0(dataPath, "processed/jan2017clamp15minuteData.csv.gz") processedF <- paste0(dataPath, "processed/jan2017clamp15minuteData.csv.gz")
...@@ -47,9 +44,15 @@ make(plan) ...@@ -47,9 +44,15 @@ make(plan)
wHRawDT <- drake::readd(wHRawD) wHRawDT <- drake::readd(wHRawD)
wHprocessedDT <- drake::readd(wHprocessedD) wHprocessedDT <- drake::readd(wHprocessedD)
#system.time(u_dt_dplyr <- dplyr::distinct(wHRawDT)) # test package functions ----
#system.time(u_dt_data.table <- data.table::unique(energyDT)) # breaks why?
fileList <- saveData::getWhFileList(rawDP)
# > electricity consumption data processing ----
dt <- copy(wHRawDT) # otherwise it acts on original due to 'by reference' nature of data.table dt <- copy(wHRawDT) # otherwise it acts on original due to 'by reference' nature of data.table
# could put this in drake too # could put this in drake too
system.time(procDT <- saveData::processWhData(dt)) system.time(procDT <- saveData::processWhData(dt))
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment