tests/testthat/test-other-data-url.R

In neuhausi/canvasXpress: Visualization Package for CanvasXpress in R

context("canvasXpress data-url")

if (interactive()) {
    test_that("Barplot URL data", {
        result <- canvasXpress(data             = "https://www.canvasxpress.org/data/cX-generic-dat.txt",
                               smpAnnot         = "https://www.canvasxpress.org/data/cX-generic-smp.txt",
                               varAnnot         = "https://www.canvasxpress.org/data/cX-generic-var.txt",
                               graphType        = "Bar",
                               graphOrientation = "vertical",
                               plotByVariable   = TRUE,
                               smpLabelInterval = 2,
                               smpLabelRotate   = 45,
                               smpTitle         = "Sample Title",
                               title            = "Barplot: loading data from URL",
                               xAxis2Show       = FALSE)

        check_ui_test(result)
    })
} else {
    message("Non-interactive data-url tests skipped")
}