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)
}
)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.