test_that("test_fish_fun",{
spec_df <- factor(
c("salmon", "tuna", "trout",
"salmon", "tuna", "trout",
"salmon", "salmon", "trout"))
expect_equal(names(fish_fun(species = spec_df)$common),
"salmon")})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.