tests/testthat/test_reports.R

In uzh/ezRun: An R meta-package for the analysis of Next Generation Sequencing Data

context("Tests the functions in reports.R")

cwd = getwd()
setwdNew("./ReportTest")

doc = openBsdocReport("Testreport")
dat = data.frame(a=1:5, b=11:15)
param = ezParam()
input = EzDataset$new(file=system.file("extdata/yeast_10k/dataset.tsv", package = "ezRun", mustWork = TRUE),
                      dataRoot=NULL)

test_that("tests adding links",{
  addParagraph(doc, ezLink("http://www.google.com", "normal link"))
  addParagraph(doc, ezLink("https://github.com/jgm/pandoc/archive/1.15.1.tar.gz", "link with explicit type", type="application/image"))
  addParagraph(doc, ezLink("http://www.google.com", "link opening in a new window", target = "_blank"))
})



test_that("Tests ezImageFileLink()", {
  x = 1:10
  plotCmd = expression({
    plot(x)
    text(2,1, "my Text")
  })
  fileLink = ezImageFileLink(plotCmd)
  expect_is(fileLink, "character")
  expect_true(grepl("span><img src", fileLink))
  addParagraph(doc, "Testing ezImageFileLink()")
  addParagraph(doc, fileLink)
})

setwd(cwd)
ezSystem("rm -fr ./ReportTest")