context("MaskedModString")
test_that("MaskedModString",{
chr <- "AGC@"
expect_output(expect_error(ModRNAString(chr),
"Invalid character\\(s\\) - see above"))
expect_type(sanitizeFromModomics(chr),"character")
expect_equal(sanitizeFromModomics(chr),"AGC÷")
#
chr <- "AGC+"
expect_s4_class(ModRNAString(chr),"ModRNAString")
expect_type(sanitizeFromtRNAdb(chr),"character")
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.