context("higher_order")
test_that("higher_order", {
lookup <- plant_lookup(path=tempfile())
ho <- add_higher_order(lookup)
expect_that(length(ho$genus), equals(length(unique(ho$genus))))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.