context("test-utils.R")
test_that("preparing .Renviron file works", {
prepare_Renviron()
r_env_lines <- readLines(construct_Renviron_path())
for (type in c("email", "password")) {
expect_true(any(grepl(paste0("^BacDive_", type, "="), r_env_lines)))
}
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.