Nothing
test_that("can register preference over all or selected packages", {
on.exit(prefs_reset())
conflict_prefer("x1", "pkga", quiet = TRUE)
conflict_prefer("x2", "pkga", "pkgb", quiet = TRUE)
conflict_prefer("x3", "pkga", c("pkgb", "pkgc"), quiet = TRUE)
expect_setequal(prefs_ls(), c("x1", "x2", "x3"))
})
# resolution --------------------------------------------------------------
test_that("length 1 vector beats all comers", {
on.exit(prefs_reset())
conflict_prefer("x1", "pkga", quiet = TRUE)
expect_equal(prefs_resolve("x1"), "pkga")
})
test_that("length n vector beats listed others", {
on.exit(prefs_reset())
conflict_prefer("x1", "pkga", "pkgb", quiet = TRUE)
expect_equal(prefs_resolve("x1", c("pkga", "pkgb")), "pkga")
expect_equal(prefs_resolve("x1", c("pkga", "pkgb", "pkgc")), c("pkga", "pkgc"))
})
# messaging ----------------------------------------------------------------
test_that("useful messages for specific preferences", {
withr::defer(prefs_reset())
expect_snapshot({
conflict_prefer("mean", "canoodle", c("noodle", "doodle"))
conflict_prefer("mean", "canoodle", "boodle")
conflict_prefer("+", "canoodle")
})
})
test_that("can register preference for multiple functions", {
pkgload::load_all(test_path("funmatch"), quiet = TRUE, export_all = FALSE)
withr::defer({
pkgload::unload("funmatch")
prefs_reset()
})
expect_snapshot({
conflict_prefer_all("funmatch")
})
expect_setequal(prefs_ls(), c("median", "pi"))
prefs_reset()
expect_snapshot({
conflict_prefer_all("funmatch", "base")
})
expect_setequal(prefs_ls(), "pi")
prefs_reset()
expect_snapshot({
conflict_prefer_matching("m", "funmatch")
})
expect_setequal(prefs_ls(), "median")
prefs_reset()
})
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.