tests/testthat/test-layercake.R

context("Layercake")
data(q.invoice.lines)
d <- q.invoice.lines
library(lubridate)
#Sys.setenv(TZ='GMT')
end <-  ISOdate(2016,12,31)
start <-  ISOdate(2012,7,1)
by = "year"
for (by in c("week", "month", "quarter", "year"))
    test_that(paste("Layercake", by),
          {
              capture.output(rd <- RevenueData(d$AUD, d$ValidFrom, d$ValidTo, start = start, end = end, id = d$name, subscription.length = by, subset = d$validInvoice == 1))
              lc <- LayerCake(rd)
              LayerCake(rd, as.table = TRUE)
              expect_error(capture.output(print(lc)), NA)
})
Displayr/flipStartup documentation built on May 2, 2024, 6:24 p.m.