Nothing
test_that("replaceNA", {
expect_true(all(!is.na(replaceNA(c(1, 2, NA, 3, NA), 0))))
})
test_that("isNA", {
expect_true(isNA(NA))
expect_false(isNA(c(NA, NA)))
expect_false(isNA(2))
expect_false(isNA("a"))
expect_false(isNA(airquality))
})
test_that("pacs::compareVersionsMax", {
expect_true(pacs::compareVersionsMax(c("1.1.1", "1.0.0", "3.3.3")) == "3.3.3")
expect_true(pacs::compareVersionsMax("3.3.3") == "3.3.3")
})
test_that("pacs::compareVersionsMin", {
expect_true(pacs::compareVersionsMin(c("1.1.1", "1.0.0", "3.3.3")) == "1.0.0")
expect_true(pacs::compareVersionsMin("1.1.1") == "1.1.1")
})
test_that("expand_dependency", {
expect_identical(expand_dependency("strong"), c("Depends", "Imports", "LinkingTo"))
expect_identical(expand_dependency("all"), c("Depends", "Imports", "LinkingTo", "Suggests", "Enhances"))
expect_identical(expand_dependency("most"), c("Depends", "Imports", "LinkingTo", "Suggests"))
expect_identical(expand_dependency(c("Depends", "Imports", "LinkingTo")), c("Depends", "Imports", "LinkingTo"))
expect_error(expand_dependency("WRONG"))
})
test_that("extract_deps", {
input <- c(
"ggplot2 (>= 3.1.0)", "shiny (>= 1.3.1)", "", "R (>= 3.1.0)",
"Biobase", "glmnet", "methods", "stats", "NA"
)
expect_identical(
extract_deps(input),
list(
packages = list(
"ggplot2", "shiny", "", "R", "Biobase",
"glmnet", "methods", "stats", "NA"
),
versions = list(
"3.1.0", "1.3.1", NA_character_, "3.1.0",
NA_character_, NA_character_, NA_character_,
NA_character_, NA_character_
)
)
)
})
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.