# Copyright 2018 Opening Reproducible Research (https://o2r.info)
context("Find system requrirements")
skip_if_crandeps_offline <- function() {
skip_if_not_installed("httr")
if (httr::status_code(httr::HEAD(url = "crandeps.r-pkg.org")) != 200)
skip("crandeps not available")
}
test_that("System requirements for sp can be detected OFFLINE and soft", {
skip_if_crandeps_offline()
output <- capture_output(
deps <- containerit:::.find_system_dependencies("sp",
platform = containerit:::.debian_platform,
soft = TRUE,
offline = TRUE)
)
deps_expected <- c("libproj-dev", "libgdal-dev", "gdal-bin", "libgeos-dev libgeos++-dev")
expect_true(all(deps %in% deps_expected))
expect_true(all(deps_expected %in% deps))
})
test_that("System requirements for sp can be detected OFFLINE and unsoft", {
skip_if_crandeps_offline()
output <- capture_output(
deps <- containerit:::.find_system_dependencies("sp",
platform = containerit:::.debian_platform,
soft = FALSE,
offline = TRUE)
)
expect_equal(deps, character(0)) #no direct dependencies
})
test_that("System requirements for rgdal can be detected OFFLINE", {
skip_if_crandeps_offline()
output <- capture_output(
deps <- containerit:::.find_system_dependencies("rgdal",
platform = containerit:::.debian_platform,
soft = TRUE,
offline = TRUE)
)
deps_expected <- c("libgdal-dev", "gdal-bin", "libproj-dev")
expect_true(all(deps %in% deps_expected))
expect_true(all(deps_expected %in% deps))
output <- capture_output(
deps <- containerit:::.find_system_dependencies("rgdal",
platform = containerit:::.debian_platform,
offline = TRUE)
)
deps_expected <- c("libgdal-dev", "gdal-bin", "libproj-dev")
expect_true(all(deps %in% deps_expected))
expect_true(all(deps_expected %in% deps))
})
test_that("System requirements for sp can be detected ONLINE", {
output <- capture_output(
deps <- containerit:::.find_system_dependencies("sp",
platform = containerit:::.debian_platform,
soft = FALSE)
)
expect_equal(deps, character(0)) #no direct dependencies
})
test_that("System requirements for rgdal can be detected ONLINE (with defaults)", {
output <- capture_output(
deps <- containerit:::.find_system_dependencies("rgdal",
platform = containerit:::.debian_platform)
)
deps_expected <- c("libgdal-dev", "gdal-bin", "libproj-dev")
expect_true(all(deps %in% deps_expected))
expect_true(all(deps_expected %in% deps))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.