tests/testthat/test_AllCoeditedRegions.R

In rnaEditr: Statistical analysis of RNA editing sites and hyper-editing regions

context("AllCoeditedRegions")

data(rnaedit_df)

genes_gr <- TransformToGR(
  genes_char = c("PHACTR4", "CCR5", "METTL7A"),
  type = "symbol",
  genome = "hg19"
)

test_that("AllCoeditedRegions returns a GRanges object", {
  
  out_gr <- AllCoeditedRegions(
    regions_gr = genes_gr,
    rnaEditMatrix = rnaedit_df
  )
  
  expect_output(str(out_gr), "Formal class 'GRanges'")
  
})