tests/testthat/test_no_tx2gene.R

context("no_tx2gene")
test_that("no tx2gene provided throws error", {

  dir <- system.file("extdata", package="tximportData")
  samples <- read.table(file.path(dir,"samples.txt"), header=TRUE)
  files <- file.path(dir,"salmon", samples$run, "quant.sf.gz")
  names(files) <- paste0("sample",1:6)
  expect_error(tximport(files, type="salmon", txOut=FALSE))

})

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.