tests/testthat/test-timeseriescolumnchart.R

In Displayr/flipTime: Tools for Manipulating Dates and Time Series

context("time series column chart")
for (by in c("week", "month", "quarter", "year"))
    test_that(paste("stacked", by),
              {
                  d = seq(as.Date("2010/1/1"), as.Date("2018/1/1"), paste0(by, "s"))
                  d = sort(unique(Period(d, by)))
                  k = length(d)
                  set.seed(12)
                  temp.x = runif(k)*100
                  names(temp.x) = d
                  expect_error(p <- TimeSeriesColumnChart(temp.x, by, ytitle = "New customers", xtitle = "Start"),NA)
                  expect_error(p <- TimeSeriesColumnChart(temp.x, by, ytitle = "New customers", xtitle = "Start", ignore.last.period.from.smooth = TRUE),NA)
                  expect_error(capture.output(print(p)), NA)
              }
)