tests/testthat/test_rsem.R

context("rsem")
test_that("import rsem works", {

  library(readr)
  dir <- system.file("extdata", package="tximportData")
  samples <- read.table(file.path(dir,"samples.txt"), header=TRUE)
  files <- file.path(dir,"rsem", samples$run, paste0(samples$run, ".genes.results.gz"))
  names(files) <- paste0("sample",1:6)
  expect_message(txi.rsem <- tximport(files, type="rsem", txOut=FALSE), "looks like you")

  files <- file.path(dir,"rsem", samples$run, paste0(samples$run, ".isoforms.results.gz"))
  names(files) <- paste0("sample",1:6)
  txi.rsem <- tximport(files, type="rsem", txIn=TRUE, txOut=TRUE)
  
})

Try the tximport package in your browser

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

tximport documentation built on Nov. 8, 2020, 8:20 p.m.