library(earthEngineGrabR)
context("Requirements for the test to run")
test_that("Test that required credentials exist", {
skip_test_if_not_possible()
activate_environments()
credentials_test <- try(test_credentials(), silent = T)
expect_true(credentials_test)
})
test_that("Test that required python modules can be loaded", {
skip_test_if_not_possible()
activate_environments()
test_ee <- py_module_available("ee")
expect_true(test_ee)
})
# create temp folder for tests
temp_path <- get_temp_path(T)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.