tests/testthat/test_quickNet.R

In Krutik6/TimiRGeN: Time sensitive microRNA-mRNA integration, analysis and network generation tool

#devtools::uses_testthat()
library(TimiRGeN)
library(testthat)

#load data
net <- readRDS("net.rds")

quickNet(metadata(net)[[1]])

dev.off()

#l <- length(metadata(net)[[1]])

#visual check, legends a bit wonky
#test_that("net should be 10 long", {
#  expect_equal(l, 10)
#})