tests/testthat/test-plot_cases.R

test_that("output plotly", {

    res <- plot_cases(covid_stat = 'new_cases', label = 'simple label', title = 'New cases', country_compare = 'Australia')
    expect_true(class(res)[1] == "shiny.render.function")
})
etc5523-2020/r-package-assessment-alangewerc documentation built on Jan. 1, 2021, 1:11 a.m.