tests/testthat/test_quickNet.R

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

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

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

dev.off()

#visual check, legends a bit wonky
test_that("net should be 10 long", {
  expect_equal(length(metadata(net)[[1]]), 10)
})

Try the TimiRGeN package in your browser

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

TimiRGeN documentation built on April 17, 2021, 6:03 p.m.