Nothing
test_that("crandb wrong input", {
skip_if_offline()
expect_identical(pacs_lifeduration(c("dplyr"), c("1.0.7", "1.6.0")), NA)
expect_identical(pacs_lifeduration(c("dplyr", "shiny", "data.table"), c("1.0.7", "1.6.0")), c(NA, NA, NA))
expect_identical(
pacs_lifeduration(c("dplyr", "shiny", "3"), c("1.0.7", "1.6.0")),
c(NA, NA, NA)
)
})
test_that("crandb timemachine related", {
skip_if_offline()
skip_on_cran()
res <- pac_timemachine("dplyr", source = "crandb")
expect_true(isNA(res) || is.data.frame(res))
res <- pac_lifeduration("dplyr", source = "crandb")
expect_true(isNA(res) || inherits(res, "difftime"))
})
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.