Nothing
test_that("species_profile_plot works", {
species <- "Anemone canadensis"
bad_list1 <- list(faithful)
bad_list2 <- list(test_assessment, faithful)
expect_message(species_profile_plot(species, bad_list1))
expect_message(species_profile_plot(species, bad_list2))
expect_message(species_profile_plot(species))
test_assessments <- list(test_assessment,
test_assessment2,
test_assessment_manual)
good_list <- assessment_list_inventory(test_assessments)
expect_error(species_profile_plot("fake_species", good_list),
"Species does not appear in any assessment. No profile plot generated.")
p <- species_profile_plot(species, good_list)
expect_true(ggplot2::is_ggplot(p))
expect_equal(p$data$cospecies_c, 0:10)
expect_equal(p$labels$y, "Frequency")
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.