library(testthat)
# most common expectations:
# equality: expect_equal() and expect_identical()
# regexp: expect_match()
# catch-all: expect_true() and expect_false()
# console output: expect_output()
# messages: expect_message()
# warning: expect_warning()
# errors: expect_error()
escapeString <- function(s) {
t <- gsub("(\\\\)", "\\\\\\\\", s)
t <- gsub("(\n)", "\\\\n", t)
t <- gsub("(\r)", "\\\\r", t)
t <- gsub("(\")", "\\\\\"", t)
return(t)
}
prepStr <- function(s) {
t <- escapeString(s)
u <- eval(parse(text=paste0("\"", t, "\"")))
if(s!=u) stop("Unable to escape string!")
t <- paste0("\thtml <- \"", t, "\"")
utils::writeClipboard(t)
return(invisible())
}
evaluationMode <- "sequential"
processingLibrary <- "dplyr"
description <- "test: sequential dplyr"
countFunction <- "n()"
isDevelopmentVersion <- (length(strsplit(packageDescription("pivottabler")$Version, "\\.")[[1]]) > 3)
testScenarios <- function(description="test", releaseEvaluationMode="batch", releaseProcessingLibrary="dplyr", runAllForReleaseVersion=FALSE) {
isDevelopmentVersion <- (length(strsplit(packageDescription("pivottabler")$Version, "\\.")[[1]]) > 3)
if(isDevelopmentVersion||runAllForReleaseVersion) {
evaluationModes <- c("sequential", "batch")
processingLibraries <- c("dplyr", "data.table")
}
else {
evaluationModes <- releaseEvaluationMode
processingLibraries <- releaseProcessingLibrary
}
testCount <- length(evaluationModes)*length(processingLibraries)
c1 <- character(testCount)
c2 <- character(testCount)
c3 <- character(testCount)
c4 <- character(testCount)
testCount <- 0
for(evaluationMode in evaluationModes)
for(processingLibrary in processingLibraries) {
testCount <- testCount + 1
c1[testCount] <- evaluationMode
c2[testCount] <- processingLibrary
c3[testCount] <- paste0(description, ": ", evaluationMode, " ", processingLibrary)
c4[testCount] <- ifelse(processingLibrary=="data.table", ".N", "n()")
}
df <- data.frame(evaluationMode=c1, processingLibrary=c2, description=c3, countFunction=c4, stringsAsFactors=FALSE)
return(df)
}
context("ALTERNATIVE LAYOUT TESTS")
scenarios <- testScenarios("Append groups at level 1 (top level)")
for(i in 1:nrow(scenarios)) {
if(!isDevelopmentVersion) break
evaluationMode <- scenarios$evaluationMode[i]
processingLibrary <- scenarios$processingLibrary[i]
description <- scenarios$description[i]
countFunction <- scenarios$countFunction[i]
test_that(description, {
library(pivottabler)
pt <- PivotTable$new(processingLibrary=processingLibrary, evaluationMode=evaluationMode, compatibility=list(noDataGroupNBSP=TRUE))
pt$addData(bhmtrains)
pt$addColumnDataGroups("TrainCategory")
pt$addRowDataGroups("TOC")
pt$addRowDataGroups("PowerType")
pt$addRowDataGroups("SchedSpeedMPH")
grpLevelCheck <- pt$addRowDataGroups("Status", atLevel=1)[[1]]$levelNumber
pt$defineCalculation(calculationName="TotalTrains", summariseExpression=countFunction)
pt$evaluatePivot()
# pt$renderPivot()
# sum(pt$cells$asMatrix(), na.rm=TRUE)
# prepStr(as.character(pt$getHtml()))
html <- "\n \n \n | Express Passenger | \n Ordinary Passenger | \n Total | \n
\n \n \n \n \n | 63 | \n 58 | \n 121 | \n
\n \n \n | 2989 | \n 772 | \n 3761 | \n
\n \n \n | 27 | \n | \n 27 | \n
\n \n \n | 3079 | \n 830 | \n 3909 | \n
\n \n \n \n | 3079 | \n 830 | \n 3909 | \n
\n \n \n \n \n | 10961 | \n 63 | \n 11024 | \n
\n \n \n | 11040 | \n | \n 11040 | \n
\n \n \n | 132 | \n | \n 132 | \n
\n \n \n | 22133 | \n 63 | \n 22196 | \n
\n \n \n \n | 724 | \n | \n 724 | \n
\n \n \n | 8 | \n | \n 8 | \n
\n \n \n | 732 | \n | \n 732 | \n
\n \n \n \n | 22865 | \n 63 | \n 22928 | \n
\n \n \n \n \n | 845 | \n 5259 | \n 6104 | \n
\n \n \n | 2340 | \n 59 | \n 2399 | \n
\n \n \n | 2450 | \n 273 | \n 2723 | \n
\n \n \n | 3 | \n | \n 3 | \n
\n \n \n | 5638 | \n 5591 | \n 11229 | \n
\n \n \n \n | \n 17801 | \n 17801 | \n
\n \n \n | 7820 | \n 10384 | \n 18204 | \n
\n \n \n | 1020 | \n | \n 1020 | \n
\n \n \n | 9 | \n 16 | \n 25 | \n
\n \n \n | 8849 | \n 28201 | \n 37050 | \n
\n \n \n \n | 14487 | \n 33792 | \n 48279 | \n
\n \n \n \n \n | 2135 | \n | \n 2135 | \n
\n \n \n | 2 | \n | \n 2 | \n
\n \n \n | 2137 | \n | \n 2137 | \n
\n \n \n \n | 6452 | \n | \n 6452 | \n
\n \n \n | 5 | \n | \n 5 | \n
\n \n \n | 6457 | \n | \n 6457 | \n
\n \n \n \n | 8594 | \n | \n 8594 | \n
\n \n \n \n \n | 49025 | \n 34685 | \n 83710 | \n
\n \n \n \n \n | 47780 | \n 33726 | \n 81506 | \n
\n \n \n \n \n | 1190 | \n 931 | \n 2121 | \n
\n \n \n \n \n | 55 | \n 28 | \n 83 | \n
\n \n \n \n \n | 49025 | \n 34685 | \n 83710 | \n
\n
"
expect_equal(sum(pt$cells$asMatrix(), na.rm=TRUE), 1004520)
expect_equal(grpLevelCheck, 1)
expect_identical(as.character(pt$getHtml()), html)
})
}
scenarios <- testScenarios("Append groups at level 2 (intermediate level)")
for(i in 1:nrow(scenarios)) {
evaluationMode <- scenarios$evaluationMode[i]
processingLibrary <- scenarios$processingLibrary[i]
description <- scenarios$description[i]
countFunction <- scenarios$countFunction[i]
test_that(description, {
skip_on_cran()
library(pivottabler)
pt <- PivotTable$new(processingLibrary=processingLibrary, evaluationMode=evaluationMode, compatibility=list(noDataGroupNBSP=TRUE))
pt$addData(bhmtrains)
pt$addColumnDataGroups("TrainCategory")
pt$addRowDataGroups("TOC")
pt$addRowDataGroups("PowerType")
pt$addRowDataGroups("SchedSpeedMPH")
grpLevelCheck <- pt$addRowDataGroups("Status", atLevel=2)[[1]]$levelNumber
pt$defineCalculation(calculationName="TotalTrains", summariseExpression=countFunction)
pt$evaluatePivot()
# pt$renderPivot()
# sum(pt$cells$asMatrix(), na.rm=TRUE)
# prepStr(as.character(pt$getHtml()))
html <- "\n \n \n | Express Passenger | \n Ordinary Passenger | \n Total | \n
\n \n \n \n \n | 63 | \n 58 | \n 121 | \n
\n \n \n | 2989 | \n 772 | \n 3761 | \n
\n \n \n | 27 | \n | \n 27 | \n
\n \n \n | 3079 | \n 830 | \n 3909 | \n
\n \n \n \n | 3079 | \n 830 | \n 3909 | \n
\n \n \n \n | 3018 | \n 815 | \n 3833 | \n
\n \n \n \n | 59 | \n 15 | \n 74 | \n
\n \n \n \n | 2 | \n | \n 2 | \n
\n \n \n \n | 3079 | \n 830 | \n 3909 | \n
\n \n \n \n \n | 10961 | \n 63 | \n 11024 | \n
\n \n \n | 11040 | \n | \n 11040 | \n
\n \n \n | 132 | \n | \n 132 | \n
\n \n \n | 22133 | \n 63 | \n 22196 | \n
\n \n \n \n | 724 | \n | \n 724 | \n
\n \n \n | 8 | \n | \n 8 | \n
\n \n \n | 732 | \n | \n 732 | \n
\n \n \n \n | 22865 | \n 63 | \n 22928 | \n
\n \n \n \n | 22270 | \n 60 | \n 22330 | \n
\n \n \n \n | 569 | \n 2 | \n 571 | \n
\n \n \n \n | 26 | \n 1 | \n 27 | \n
\n \n \n \n | 22865 | \n 63 | \n 22928 | \n
\n \n \n \n \n | 845 | \n 5259 | \n 6104 | \n
\n \n \n | 2340 | \n 59 | \n 2399 | \n
\n \n \n | 2450 | \n 273 | \n 2723 | \n
\n \n \n | 3 | \n | \n 3 | \n
\n \n \n | 5638 | \n 5591 | \n 11229 | \n
\n \n \n \n | \n 17801 | \n 17801 | \n
\n \n \n | 7820 | \n 10384 | \n 18204 | \n
\n \n \n | 1020 | \n | \n 1020 | \n
\n \n \n | 9 | \n 16 | \n 25 | \n
\n \n \n | 8849 | \n 28201 | \n 37050 | \n
\n \n \n \n | 14487 | \n 33792 | \n 48279 | \n
\n \n \n \n | 14133 | \n 32851 | \n 46984 | \n
\n \n \n \n | 336 | \n 914 | \n 1250 | \n
\n \n \n \n | 18 | \n 27 | \n 45 | \n
\n \n \n \n | 14487 | \n 33792 | \n 48279 | \n
\n \n \n \n \n | 2135 | \n | \n 2135 | \n
\n \n \n | 2 | \n | \n 2 | \n
\n \n \n | 2137 | \n | \n 2137 | \n
\n \n \n \n | 6452 | \n | \n 6452 | \n
\n \n \n | 5 | \n | \n 5 | \n
\n \n \n | 6457 | \n | \n 6457 | \n
\n \n \n \n | 8594 | \n | \n 8594 | \n
\n \n \n \n | 8359 | \n | \n 8359 | \n
\n \n \n \n | 226 | \n | \n 226 | \n
\n \n \n \n | 9 | \n | \n 9 | \n
\n \n \n \n | 8594 | \n | \n 8594 | \n
\n \n \n \n \n | 49025 | \n 34685 | \n 83710 | \n
\n
"
expect_equal(sum(pt$cells$asMatrix(), na.rm=TRUE), 1004520)
expect_equal(grpLevelCheck, 2)
expect_identical(as.character(pt$getHtml()), html)
})
}
scenarios <- testScenarios("Append groups at level 4 (leaf level)")
for(i in 1:nrow(scenarios)) {
if(!isDevelopmentVersion) break
evaluationMode <- scenarios$evaluationMode[i]
processingLibrary <- scenarios$processingLibrary[i]
description <- scenarios$description[i]
countFunction <- scenarios$countFunction[i]
test_that(description, {
library(pivottabler)
pt <- PivotTable$new(processingLibrary=processingLibrary, evaluationMode=evaluationMode, compatibility=list(noDataGroupNBSP=TRUE))
pt$addData(bhmtrains)
pt$addColumnDataGroups("TrainCategory")
pt$addRowDataGroups("TOC")
pt$addRowDataGroups("PowerType")
pt$addRowDataGroups("SchedSpeedMPH")
grpLevelCheck <- pt$addRowDataGroups("Status", atLevel=4)[[1]]$levelNumber
pt$defineCalculation(calculationName="TotalTrains", summariseExpression=countFunction)
pt$evaluatePivot()
# pt$renderPivot()
# sum(pt$cells$asMatrix(), na.rm=TRUE)
# prepStr(as.character(pt$getHtml()))
html <- "\n \n \n | Express Passenger | \n Ordinary Passenger | \n Total | \n
\n \n \n \n \n \n | 62 | \n 58 | \n 120 | \n
\n \n \n | 1 | \n | \n 1 | \n
\n \n \n | 63 | \n 58 | \n 121 | \n
\n \n \n \n | 2933 | \n 757 | \n 3690 | \n
\n \n \n | 54 | \n 15 | \n 69 | \n
\n \n \n | 2 | \n | \n 2 | \n
\n \n \n | 2989 | \n 772 | \n 3761 | \n
\n \n \n \n | 23 | \n | \n 23 | \n
\n \n \n | 4 | \n | \n 4 | \n
\n \n \n | 27 | \n | \n 27 | \n
\n \n \n \n | 3079 | \n 830 | \n 3909 | \n
\n \n \n \n \n | 3079 | \n 830 | \n 3909 | \n
\n \n \n \n \n \n | 10743 | \n 60 | \n 10803 | \n
\n \n \n | 208 | \n 2 | \n 210 | \n
\n \n \n | 10 | \n 1 | \n 11 | \n
\n \n \n | 10961 | \n 63 | \n 11024 | \n
\n \n \n \n | 10714 | \n | \n 10714 | \n
\n \n \n | 310 | \n | \n 310 | \n
\n \n \n | 16 | \n | \n 16 | \n
\n \n \n | 11040 | \n | \n 11040 | \n
\n \n \n \n | 104 | \n | \n 104 | \n
\n \n \n | 28 | \n | \n 28 | \n
\n \n \n | 132 | \n | \n 132 | \n
\n \n \n \n | 22133 | \n 63 | \n 22196 | \n
\n \n \n \n \n | 703 | \n | \n 703 | \n
\n \n \n | 21 | \n | \n 21 | \n
\n \n \n | 724 | \n | \n 724 | \n
\n \n \n \n | 6 | \n | \n 6 | \n
\n \n \n | 2 | \n | \n 2 | \n
\n \n \n | 8 | \n | \n 8 | \n
\n \n \n \n | 732 | \n | \n 732 | \n
\n \n \n \n \n | 22865 | \n 63 | \n 22928 | \n
\n \n \n \n \n \n | 822 | \n 5192 | \n 6014 | \n
\n \n \n | 22 | \n 63 | \n 85 | \n
\n \n \n | 1 | \n 4 | \n 5 | \n
\n \n \n | 845 | \n 5259 | \n 6104 | \n
\n \n \n \n | 2305 | \n 59 | \n 2364 | \n
\n \n \n | 33 | \n | \n 33 | \n
\n \n \n | 2 | \n | \n 2 | \n
\n \n \n | 2340 | \n 59 | \n 2399 | \n
\n \n \n \n | 2404 | \n 269 | \n 2673 | \n
\n \n \n | 46 | \n 4 | \n 50 | \n
\n \n \n | 2450 | \n 273 | \n 2723 | \n
\n \n \n \n | 3 | \n | \n 3 | \n
\n \n \n | 3 | \n | \n 3 | \n
\n \n \n \n | 5638 | \n 5591 | \n 11229 | \n
\n \n \n \n \n | \n 17130 | \n 17130 | \n
\n \n \n | \n 660 | \n 660 | \n
\n \n \n | \n 11 | \n 11 | \n
\n \n \n | \n 17801 | \n 17801 | \n
\n \n \n \n | 7609 | \n 10186 | \n 17795 | \n
\n \n \n | 197 | \n 186 | \n 383 | \n
\n \n \n | 14 | \n 12 | \n 26 | \n
\n \n \n | 7820 | \n 10384 | \n 18204 | \n
\n \n \n \n | 983 | \n | \n 983 | \n
\n \n \n | 36 | \n | \n 36 | \n
\n \n \n | 1 | \n | \n 1 | \n
\n \n \n | 1020 | \n | \n 1020 | \n
\n \n \n \n | 7 | \n 15 | \n 22 | \n
\n \n \n | 2 | \n 1 | \n 3 | \n
\n \n \n | 9 | \n 16 | \n 25 | \n
\n \n \n \n | 8849 | \n 28201 | \n 37050 | \n
\n \n \n \n \n | 14487 | \n 33792 | \n 48279 | \n
\n \n \n \n \n \n | 2026 | \n | \n 2026 | \n
\n \n \n | 107 | \n | \n 107 | \n
\n \n \n | 2 | \n | \n 2 | \n
\n \n \n | 2135 | \n | \n 2135 | \n
\n \n \n \n | 2 | \n | \n 2 | \n
\n \n \n | 2 | \n | \n 2 | \n
\n \n \n \n | 2137 | \n | \n 2137 | \n
\n \n \n \n \n | 6326 | \n | \n 6326 | \n
\n \n \n | 119 | \n | \n 119 | \n
\n \n \n | 7 | \n | \n 7 | \n
\n \n \n | 6452 | \n | \n 6452 | \n
\n \n \n \n | 5 | \n | \n 5 | \n
\n \n \n | 5 | \n | \n 5 | \n
\n \n \n \n | 6457 | \n | \n 6457 | \n
\n \n \n \n \n | 8594 | \n | \n 8594 | \n
\n \n \n \n \n \n | 49025 | \n 34685 | \n 83710 | \n
\n
"
expect_equal(sum(pt$cells$asMatrix(), na.rm=TRUE), 837100)
expect_equal(grpLevelCheck, 4)
expect_identical(as.character(pt$getHtml()), html)
})
}
scenarios <- testScenarios("Append groups at level 5 (beyond leaf level)") # check that a level number that is too high gets clamped back to the leaf level
for(i in 1:nrow(scenarios)) {
if(!isDevelopmentVersion) break
evaluationMode <- scenarios$evaluationMode[i]
processingLibrary <- scenarios$processingLibrary[i]
description <- scenarios$description[i]
countFunction <- scenarios$countFunction[i]
test_that(description, {
library(pivottabler)
pt <- PivotTable$new(processingLibrary=processingLibrary, evaluationMode=evaluationMode, compatibility=list(noDataGroupNBSP=TRUE))
pt$addData(bhmtrains)
pt$addColumnDataGroups("TrainCategory")
pt$addRowDataGroups("TOC")
pt$addRowDataGroups("PowerType")
pt$addRowDataGroups("SchedSpeedMPH")
grpLevelCheck <- pt$addRowDataGroups("Status", atLevel=5)[[1]]$levelNumber
pt$defineCalculation(calculationName="TotalTrains", summariseExpression=countFunction)
pt$evaluatePivot()
# pt$renderPivot()
# sum(pt$cells$asMatrix(), na.rm=TRUE)
# prepStr(as.character(pt$getHtml()))
html <- "\n \n \n | Express Passenger | \n Ordinary Passenger | \n Total | \n
\n \n \n \n \n \n | 62 | \n 58 | \n 120 | \n
\n \n \n | 1 | \n | \n 1 | \n
\n \n \n | 63 | \n 58 | \n 121 | \n
\n \n \n \n | 2933 | \n 757 | \n 3690 | \n
\n \n \n | 54 | \n 15 | \n 69 | \n
\n \n \n | 2 | \n | \n 2 | \n
\n \n \n | 2989 | \n 772 | \n 3761 | \n
\n \n \n \n | 23 | \n | \n 23 | \n
\n \n \n | 4 | \n | \n 4 | \n
\n \n \n | 27 | \n | \n 27 | \n
\n \n \n \n | 3079 | \n 830 | \n 3909 | \n
\n \n \n \n \n | 3079 | \n 830 | \n 3909 | \n
\n \n \n \n \n \n | 10743 | \n 60 | \n 10803 | \n
\n \n \n | 208 | \n 2 | \n 210 | \n
\n \n \n | 10 | \n 1 | \n 11 | \n
\n \n \n | 10961 | \n 63 | \n 11024 | \n
\n \n \n \n | 10714 | \n | \n 10714 | \n
\n \n \n | 310 | \n | \n 310 | \n
\n \n \n | 16 | \n | \n 16 | \n
\n \n \n | 11040 | \n | \n 11040 | \n
\n \n \n \n | 104 | \n | \n 104 | \n
\n \n \n | 28 | \n | \n 28 | \n
\n \n \n | 132 | \n | \n 132 | \n
\n \n \n \n | 22133 | \n 63 | \n 22196 | \n
\n \n \n \n \n | 703 | \n | \n 703 | \n
\n \n \n | 21 | \n | \n 21 | \n
\n \n \n | 724 | \n | \n 724 | \n
\n \n \n \n | 6 | \n | \n 6 | \n
\n \n \n | 2 | \n | \n 2 | \n
\n \n \n | 8 | \n | \n 8 | \n
\n \n \n \n | 732 | \n | \n 732 | \n
\n \n \n \n \n | 22865 | \n 63 | \n 22928 | \n
\n \n \n \n \n \n | 822 | \n 5192 | \n 6014 | \n
\n \n \n | 22 | \n 63 | \n 85 | \n
\n \n \n | 1 | \n 4 | \n 5 | \n
\n \n \n | 845 | \n 5259 | \n 6104 | \n
\n \n \n \n | 2305 | \n 59 | \n 2364 | \n
\n \n \n | 33 | \n | \n 33 | \n
\n \n \n | 2 | \n | \n 2 | \n
\n \n \n | 2340 | \n 59 | \n 2399 | \n
\n \n \n \n | 2404 | \n 269 | \n 2673 | \n
\n \n \n | 46 | \n 4 | \n 50 | \n
\n \n \n | 2450 | \n 273 | \n 2723 | \n
\n \n \n \n | 3 | \n | \n 3 | \n
\n \n \n | 3 | \n | \n 3 | \n
\n \n \n \n | 5638 | \n 5591 | \n 11229 | \n
\n \n \n \n \n | \n 17130 | \n 17130 | \n
\n \n \n | \n 660 | \n 660 | \n
\n \n \n | \n 11 | \n 11 | \n
\n \n \n | \n 17801 | \n 17801 | \n
\n \n \n \n | 7609 | \n 10186 | \n 17795 | \n
\n \n \n | 197 | \n 186 | \n 383 | \n
\n \n \n | 14 | \n 12 | \n 26 | \n
\n \n \n | 7820 | \n 10384 | \n 18204 | \n
\n \n \n \n | 983 | \n | \n 983 | \n
\n \n \n | 36 | \n | \n 36 | \n
\n \n \n | 1 | \n | \n 1 | \n
\n \n \n | 1020 | \n | \n 1020 | \n
\n \n \n \n | 7 | \n 15 | \n 22 | \n
\n \n \n | 2 | \n 1 | \n 3 | \n
\n \n \n | 9 | \n 16 | \n 25 | \n
\n \n \n \n | 8849 | \n 28201 | \n 37050 | \n
\n \n \n \n \n | 14487 | \n 33792 | \n 48279 | \n
\n \n \n \n \n \n | 2026 | \n | \n 2026 | \n
\n \n \n | 107 | \n | \n 107 | \n
\n \n \n | 2 | \n | \n 2 | \n
\n \n \n | 2135 | \n | \n 2135 | \n
\n \n \n \n | 2 | \n | \n 2 | \n
\n \n \n | 2 | \n | \n 2 | \n
\n \n \n \n | 2137 | \n | \n 2137 | \n
\n \n \n \n \n | 6326 | \n | \n 6326 | \n
\n \n \n | 119 | \n | \n 119 | \n
\n \n \n | 7 | \n | \n 7 | \n
\n \n \n | 6452 | \n | \n 6452 | \n
\n \n \n \n | 5 | \n | \n 5 | \n
\n \n \n | 5 | \n | \n 5 | \n
\n \n \n \n | 6457 | \n | \n 6457 | \n
\n \n \n \n \n | 8594 | \n | \n 8594 | \n
\n \n \n \n \n \n | 49025 | \n 34685 | \n 83710 | \n
\n
"
expect_equal(sum(pt$cells$asMatrix(), na.rm=TRUE), 837100)
expect_equal(grpLevelCheck, 4)
expect_identical(as.character(pt$getHtml()), html)
})
}