context("check")
test_that("conan_check finds packages", {
expect_equal(
conan_check("stats", .libPaths()),
list(complete = TRUE,
found = "stats",
missing = character(0)))
})
test_that("conan_check works with references", {
expect_equal(
conan_check(c("cran::stats", "org/unknownpkg"), .libPaths()),
list(complete = FALSE,
found = "stats",
missing = "org/unknownpkg"))
})
test_that("conan_check works with references mixed with packages", {
path <- tempfile()
pkgs <- c("pkg1", "pkg2", "org/pkg2@ref")
expect_equal(
conan_check(pkgs, path),
list(complete = FALSE,
found = character(0),
missing = pkgs))
})
test_that("conan_check works with paths", {
path <- tempfile()
pkgs <- c("pkg1", "pkg2", "pkg3", "org/pkg2@ref", "local::pkg3.tgz")
expect_equal(
conan_check(pkgs, path),
list(complete = FALSE,
found = character(0),
missing = pkgs))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.