context("Environment")
test_that("can load a simple environment file", {
x <- yaml::yaml.load_file(system.file("./environment.yml", package = "arcticdatautils"))
expect_true(length(x) == 3)
expect_true(length(setdiff(c("development", "test", "production"), names(x))) == 0)
})
test_that("an environment string can be returned", {
expect_is(env_get(), "character")
expect_true(nchar(env_get()) > 0)
})
test_that("can correctly load the environment", {
# Defaults to development if the env var isn't found
Sys.setenv("ARCTICDATA_ENV" = "")
expect_true(env_get() == "development")
Sys.unsetenv("ARCTICDATA_ENV")
Sys.setenv("ARCTICDATA_ENV" = "production")
expect_true(env_get() == "production")
Sys.unsetenv("ARCTICDATA_ENV")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.