tests/testthat/test_LaTeX_export.R

In TomKellyGenetics/slipt: Synthetic Lethal Interaction Prediction Tool (SLIPT) from Cancer Genomics Data

library(slipt)
context("LaTeX export")

#example data
data <- c()
for(i in 1:100){
  data <- cbind(data, rnorm(1000))
}
rm(i)
rownames(data) <- paste("gene", 1:1000)
colnames(data) <- paste("sample", 1:100)
dim(data)

#load package functions
library("slipt")

##run examples
#partition data
partitioned_data <- prep_data_for_SL(data)
dim(partitioned_data)
#SL analysis
sl_table <- detect_SL("gene 1", partitioned_data)
head(sl_table)

test_that("SL data exported", {
  #load("data/sl_table.rda")
  export_SL_latex(sl_table)
  expect_that(file.exists("sl_table.tex"), equals(TRUE))
  file.remove("sl_table.tex")
})