Nothing
context("tRNA plots")
test_that("tRNA plots:",{
data("gr", package = "tRNA")
data("gr_eco", package = "tRNA")
grl <- GRangesList(Sce = gr, Eco = gr_eco)
plots <- gettRNAFeaturePlots(grl)
expect_true(all(vapply(plots,is,logical(1),"ggplot")))
})
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.