tests/testthat/test-demographic_plots.R

In dragosmg/rocheshiny: A Packaged Shiny App for the Roche Genentech Coding Test

test_that("demographic plotting works", {
    expect_error(plot_sex("bar"))
    expect_error(plot_race("bar"))
    expect_error(plot_treatment_group("bar"))
    expect_error(plot_age_sex("bar"))

    skip_on_ci()
    pd <- load_patient_data()
    ps <- plot_sex(pd)
    expect_s3_class(ps, c("gg", "ggplot"))

    pr <- plot_race(pd)
    expect_s3_class(pr, c("gg", "ggplot"))

    ptg <- plot_treatment_group(pd)
    expect_s3_class(ptg, c("gg", "ggplot"))

    pas <- plot_age_sex(pd)
    expect_s3_class(pas, c("gg", "ggplot"))
})