tests/testthat/test-4tRNA-plot.R

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")))
})

Try the tRNA package in your browser

Any scripts or data that you put into this service are public.

tRNA documentation built on Nov. 8, 2020, 11:08 p.m.