tests/testthat/test-addpop2string.R

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)
})
kullrich/distSTRING documentation built on Dec. 21, 2021, 8:42 a.m.