Nothing
context("column_types")
col_types <- c("character", "character", "numeric",
"numeric", "numeric", "numeric",
"numeric", "numeric", "Date")
test_that("column types are correct", {
expect_true(all(lapply(christmas_mojo,
class) == col_types))
expect_true(all(lapply(boxoffice(dates = as.Date("2017-12-25"),
top_n = 10), class) == col_types))
expect_true(all(lapply(boxoffice(dates = as.Date("2017-12-25"),
site = "mojo",
top_n = 10), class) == col_types))
expect_true(all(lapply(boxoffice(dates = christmas), class) == col_types))
expect_true(all(lapply(boxoffice(dates = christmas,
site = "mojo"), class) == col_types))
expect_true(all(lapply(boxoffice(dates = christmas,
top_n = 10), class) == col_types))
expect_true(all(lapply(boxoffice(dates = christmas, site = "mojo",
top_n = 10), class) == col_types))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.