context("BigQuery Dates Tables/Partitions.")
test_that("Missing dates function is correct.", {
start.date <- as.Date("2015-01-10")
end.date <- as.Date("2015-01-20")
# Dates are given in format %Y%m%d.
existing.dates <- c("20150110", "20150111", "20150112")
res <- getMissingDates(start.date, end.date, existing.dates)
expect_identical(length(res), as.integer(8), "Existing dates are exluded.")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.