data(iupac)
test_that("addpop2string() outputs DNAStringSet", {
poplist <- list(FRA = grep("Mmd.FRA", names(iupac)))
iupac <- iupac |> addpop2string(poplist)
expect_true(iupac@metadata$pop.integer$FRA[1] == 1)
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.