Nothing
testthat::test_that("search_ds043 returns a character vector", {
splist <- c("Cleistocactus clavispinus",
"Welfia alfredi",
"Matucana hayneii")
testthat::expect_type(search_ds043(splist), "character")
})
testthat::test_that("search_ds043 returns the correct accepted names", {
splist <- c("Cleistocactus clavispinus",
"Welfia alfredi",
"Matucana hayneii")
testthat::expect_equal(search_ds043(splist),
c("Present", "", "P_updated_name"))
})
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.