Nothing
test_that("pacs::pac_deps", {
stats_deps <- pacs::pac_deps("stats", base = TRUE)
stats_deps_tools <- tools::package_dependencies("stats",
recursive = TRUE,
db = installed.packages()
)[[1]]
expect_true(ncol(stats_deps) > 0)
expect_true(length(stats_deps$Package) > 0 && length(stats_deps_tools) > 0)
stats_deps_attr <- attributes(stats_deps)
expect_true(stats_deps_attr$Package == "stats")
expect_true(stats_deps_attr$class == "data.frame")
stats_deps2 <- pacs::pac_deps("stats", attr = FALSE, base = TRUE)
expect_true(ncol(stats_deps2) > 0)
expect_true(length(stats_deps2$Package) > 0)
expect_true(ncol(pacs::pac_deps("memoise", description_v = TRUE, recursive = FALSE)) == 2)
})
test_that("pacs::pac_deps cols online", {
skip_if_offline()
expect_true(ncol(pacs::pac_deps("memoise",
description_v = TRUE,
recursive = FALSE,
local = FALSE,
repos = "https://cran.rstudio.com/"
)) == 2)
})
test_that("pacs::pac_deps", {
skip_if_offline()
deps1 <- pacs::pac_deps("memoise",
description_v = TRUE,
recursive = FALSE,
local = FALSE,
repos = "https://cran.rstudio.com/"
)
deps2 <- setdiff(
tools::package_dependencies("memoise",
db = available_packages(repos = "https://cran.rstudio.com/"),
recursive = FALSE
)[[1]],
pacs::pacs_base()
)
expect_true(nrow(deps1) == length(deps2))
})
test_that("pacs::pac_deps recursive", {
skip_if_offline()
deps1_recursive <- pacs::pac_deps("memoise",
description_v = TRUE,
recursive = TRUE,
local = FALSE,
repos = "https://cran.rstudio.com/"
)
deps2_recursive <- setdiff(
tools::package_dependencies("memoise",
db = available_packages(repos = "https://cran.rstudio.com/"),
recursive = TRUE
)[[1]],
pacs::pacs_base()
)
expect_true(nrow(deps1_recursive) == length(deps2_recursive))
})
test_that("pacs::pac_deps recursive long field", {
skip_if_offline()
deps3_recursive <- pacs::pac_deps("memoise",
description_v = FALSE,
fields = c("Depends", "Imports", "LinkingTo", "Suggests", "Enhances"),
recursive = TRUE,
local = FALSE,
repos = "https://cran.rstudio.com/"
)
deps4_recursive <- setdiff(
tools::package_dependencies("memoise",
which = c("Depends", "Imports", "LinkingTo", "Suggests", "Enhances"),
db = available_packages(repos = "https://cran.rstudio.com/"),
recursive = TRUE
)[[1]],
pacs::pacs_base()
)
expect_true(nrow(deps3_recursive) == length(deps4_recursive))
})
test_that("pacs::pac_deps_timemachine", {
skip_if_offline()
expect_message(pac_deps_timemachine("WRONG", "0.8.0"), "WRONG package is not on CRAN")
expect_identical(suppressMessages(pac_deps_timemachine("WRONG", "0.8.0")), NA)
expect_length(pac_deps_timemachine("memoise", "0.2.1"), 1)
expect_length(pac_deps_timemachine("memoise", at = as.Date("2019-01-01")), 1)
expect_true(length(pac_deps_timemachine("ggplot2", at = as.Date("2020-10-10"))) > 0)
})
test_that("pacs::pac_deps_timemachine offline", {
pac_deps_timemachine_offline <- pac_deps_timemachine
mockery::stub(pac_deps_timemachine_offline, "is_online", FALSE)
expect_message(pac_deps_timemachine_offline("dplyr", "0.8.0"), "No internet connection detected")
expect_identical(suppressMessages(pac_deps_timemachine_offline("dplyr", "0.8.0")), NA)
})
test_that("pacs::app_deps", {
skip_if_offline()
rec_deps <- nrow(pacs::app_deps("files/shiny_app"))
direct_deps <- nrow(pacs::app_deps("files/shiny_app", recursive = FALSE))
expect_true(rec_deps > 0)
expect_true(direct_deps > 0)
expect_true(rec_deps >= direct_deps)
expect_error(pacs::app_deps("WRONG"))
expect_error(pacs::app_deps("files/shiny_app", 12))
})
test_that("pac_deps_user", {
skip_if_offline()
pp <- pacs::pac_deps_user("memoise", base = FALSE, attr = FALSE, repos = "https://cran.rstudio.com/")$Package
rr <- remotes:::find_deps("memoise",
available = pacs:::available_packages(repos = "https://cran.rstudio.com/"),
top_dep = NA
)
rrr <- setdiff(rr, pacs::pacs_base())
expect_identical(sort(pp), sort(rrr))
expect_message(pac_deps_user("WRONG"), "WRONG package is not in provided repositories")
expect_true(isNA(suppressMessages(pac_deps_user("WRONG"))))
})
test_that("pac_deps_dev", {
skip_if_offline()
pp <- pacs::pac_deps_dev("memoise", base = FALSE, attr = FALSE, repos = "https://cran.rstudio.com/")$Package
rr <- remotes:::find_deps("memoise",
available = pacs:::available_packages(repos = "https://cran.rstudio.com/"),
top_dep = TRUE
)
rrr <- setdiff(rr, pacs::pacs_base())
expect_identical(sort(pp), sort(rrr))
expect_message(pac_deps_dev("WRONG"), "WRONG package is not in provided repositories")
expect_true(isNA(suppressMessages(pac_deps_dev("WRONG"))))
expect_true(nrow(pac_deps_dev("tinytest", repos = "https://cran.rstudio.com/")) >= 0)
})
test_that("pac_deps_heavy", {
skip_if_offline()
pac_h <- pac_deps_heavy("pacs")
expect_s3_class(pac_h, "data.frame")
})
test_that("pac_deps_heavy counts", {
skip_if_offline()
pac_h <- pac_deps_heavy("pacs")
expect_identical(
stats::setNames(pac_h$NrDeps, pac_h$Package),
vapply(lapply(tools::package_dependencies(pac_deps("pacs", local = FALSE, recursive = FALSE)$Package, recursive = TRUE, db = available_packages(repos = biocran_repos())), function(x) setdiff(x, pacs_base())), length, integer(1))
)
})
test_that("pac_deps_heavy deps", {
skip_if_offline()
pac_h <- pac_deps_heavy("pacs")
expect_true(all(pac_h$NrDeps >= 0))
expect_true(all(pac_h$NrDeps >= pac_h$NrUniqueDeps))
expect_true(all(pac_h$NrUniqueDeps >= 0))
pac_h <- pac_deps_heavy("dplyr")
expect_true(all(pac_h$NrDeps >= 0))
expect_true(all(pac_h$NrDeps >= pac_h$NrUniqueDeps))
expect_true(all(pac_h$NrUniqueDeps >= 0))
pac_h <- pac_deps_heavy("caret")
expect_true(all(pac_h$NrDeps >= 0))
expect_true(all(pac_h$NrDeps >= pac_h$NrUniqueDeps))
expect_true(all(pac_h$NrUniqueDeps >= 0))
})
test_that("pac_deps_heavy deps local", {
pac_h <- pac_deps_heavy("memoise", local = TRUE)
expect_true(all(pac_h$NrDeps >= 0))
expect_true(all(pac_h$NrDeps >= pac_h$NrUniqueDeps))
expect_true(all(pac_h$NrUniqueDeps >= 0))
})
test_that("pac_deps_heavy counts local", {
pac_h <- pac_deps_heavy("memoise", local = TRUE)
expect_identical(
stats::setNames(pac_h$NrDeps, pac_h$Package),
vapply(lapply(tools::package_dependencies(pac_deps("memoise", local = TRUE, recursive = FALSE)$Package, recursive = TRUE, db = installed_packages(lib.loc = .libPaths())), function(x) setdiff(x, pacs_base())), length, integer(1))
)
})
test_that("pac_deps_heavy with base", {
expect_true(nrow(pac_deps_heavy("memoise", local = TRUE, base = TRUE)) >= nrow(pac_deps_heavy("memoise", local = TRUE)))
})
test_that("pac_deps_heavy 0 deps pac", {
skip_on_cran()
expect_identical(
pac_deps_heavy("base", local = TRUE),
structure(list(Package = character(0), NrDeps = integer(0), NrUniqueDeps = integer(0)), class = "data.frame", row.names = integer(0))
)
})
test_that("pac_deps_heavy WRONG", {
skip_if_offline()
expect_error(pac_deps_heavy("WRONG", local = TRUE))
expect_message(pac_deps_heavy("WRONG", local = FALSE), "WRONG package is not in provided repositories")
expect_true(isNA(suppressMessages(pac_deps_heavy("WRONG", local = FALSE))))
})
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.