Nothing
test_that("pacs::pac_lifeduration", {
skip_if_offline()
expect_message(pac_lifeduration("WRONGPACKAGE"), "WRONGPACKAGE package is not in provided repositories")
expect_true(isNA(suppressMessages(pac_lifeduration("WRONGPACKAGE"))))
expect_error(pac_lifeduration("dplyr", version = 1))
expect_true(pac_lifeduration("memoise") > 0)
})
test_that("pacs::pac_lifeduration online", {
skip_if_offline()
res <- pac_lifeduration("dplyr", version = "0.8.0")
expect_true(isNA(res) || (res == 1))
res <- pac_lifeduration("dplyr", at = as.Date("2019-02-14"))
expect_true(isNA(res) || (res == 1))
res <- pac_lifeduration("edgeR")
expect_true(isNA(res) || inherits(res, "difftime"))
res <- pac_lifeduration("edgeR")
expect_true(isNA(res) || inherits(res, "difftime"))
})
test_that("pacs::pac_health", {
skip_if_offline()
expect_true(is.logical(pac_health("stats")))
expect_message(pac_health("WRONG"), "WRONG package is not in provided repositories")
expect_true(isNA(suppressMessages(pac_health("WRONG"))))
expect_true(isNA(pac_health("dplyr", "0.0.0.1")))
})
test_that("pacs::pac_health online", {
skip_if_offline()
skip_if(isNA(checked_packages()))
expect_true(is.logical(pac_health("dplyr")))
expect_true(is.logical(pac_health("dplyr", scope = c("ERROR"))))
expect_true(isFALSE(pac_health("dplyr", version = "0.8.0")) ||
isNA(pac_health("dplyr", version = "0.8.0")))
expect_true(isFALSE(pac_health("dplyr", at = as.Date("2019-02-14"))) ||
isNA(pac_health("dplyr", at = as.Date("2019-02-14"))))
})
test_that("pacs::pac_lifeduration", {
skip_if_offline()
expect_true(isNA(suppressMessages(pac_lifeduration("WRONGPACKAGE"))))
expect_error(pac_lifeduration("dplyr", version = 1))
expect_true(pac_lifeduration("memoise") > 0)
})
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.