tests/testthat/test-image.R

context("visualization tests")

test_that("plotting works", {
  data("monilinia")
  loci <- sapply(strsplit(colnames(monilinia), "[.]"), "[", 1)
  expect_null(rpv_image(monilinia, f = loci, highlight = rpv_indices(monilinia)))
})
zkamvar/repvar documentation built on May 7, 2019, 3:18 p.m.