tests/testthat/test-ui-layout.R

In canvasXpress: Visualization Package for CanvasXpress in R

context("canvasXpress Web Charts - Layout")


test_that("cXlayout1", {
    check_ui_test(cXlayout1())
})

test_that("cXlayout2", {
    check_ui_test(cXlayout2())
})

test_that("cXlayout3", {
    check_ui_test(cXlayout3())
})

test_that("cXlayout4", {
    check_ui_test(cXlayout4())
})

test_that("cXlayout5", {
    check_ui_test(cXlayout5())
})

test_that("cXlayout6", {
    check_ui_test(cXlayout6())
})

test_that("cXlayout7", {
    check_ui_test(cXlayout7())
})

test_that("cXlayout8", {
    check_ui_test(cXlayout8())
})

test_that("cXlayout9", {
    check_ui_test(cXlayout9())
})

test_that("cXlayout10", {
    check_ui_test(cXlayout10())
})

test_that("cXlayout11", {
    check_ui_test(cXlayout11())
})

test_that("cXlayout12", {
    check_ui_test(cXlayout12())

    message('Fewer pie charts are displayed at a time than exist, the ones chosen to display differ between the web and R - working as expected')
    warning("Colors for drug are different, two pieces are green, but one should be orange")

    warning('Generated test function has incorrect afterRender list')
    # afterRender=list("addKaplanMeierCurve", list('Survival','Survival-Censor'))
})

test_that("cXlayout13", {
    check_ui_test(cXlayout13())
    warning("Plot labels differ from web example")
})

test_that("cXlayout14", {
    check_ui_test(cXlayout14())

    message('Middle section very small at default height - working as designed')
})

test_that("cXlayout15", {
    check_ui_test(cXlayout15())
})

test_that("cXlayout16", {
    check_ui_test(cXlayout16())
})

test_that("cXlayout17", {
    check_ui_test(cXlayout17())
})

test_that("cXlayout18", {
    check_ui_test(cXlayout18())
})