test_that("Random species correct length", {
set.seed(1234)
n <- sample(seq(10, 50), 1)
sp <- draw_random_species(n, colnames(adirondack))
expect_length(sp, n)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.