inst/unitTests/test_searchFunctions.R

library(RUnit)

## Test rfamTextSearchFamilyAccession

checkTrue(is.element("RF00050", rfamTextSearchFamilyAccession("FMN")))

## Test rfamSequenceSearch

checkEquals(rfamSequenceSearch("GGAUCUUCGGGGCAGGGUGAAAUUCCCGACCGGUGGUAUAGUCCACGAAAGUAUUUGCUUUGAUUUGGUGAAAUUCCAAAACCGACAGUAGAGUCUGGAUGAGAGAAGAUUC")[[1]]$rfamID, "FMN")
LaraSellesVidal/rfaRm documentation built on Aug. 8, 2021, 7:25 p.m.