# context("subscribers")
# 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 = "month"
# for (by in c("week", "month", "quarter", "year"))
# test_that(paste("Creating RevenueData", by),
# {
# expect_error(capture.output(rd <- RevenueData(d$AUD, d$ValidFrom, d$ValidTo, start = start, end = end, id = d$name, subscription.length = by, subset = d$validInvoice == 1)), NA)
#
# expect_error(capture.output(Subscribers(rd, by = by)), NA)
# #plot(Subscribers(rd, by = by))
# })
#
#
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.