Nothing
# context("bargraph()")
testthat::test_that("bargraph works", {
require(mosaicData)
data(HELPrct)
HELPrct2 <- mutate(HELPrct, older = age > 40)
wrapped_expect_doppelganger("bargraph1", bargraph( ~ substance, data = HELPrct))
wrapped_expect_doppelganger("bargraph2", bargraph( ~ substance, data = HELPrct, horizontal = TRUE))
wrapped_expect_doppelganger("bargraph3", bargraph( ~ substance | sex, groups = homeless, auto.key = TRUE, data = HELPrct))
wrapped_expect_doppelganger("bargraph4", bargraph( ~ substance, groups = homeless, auto.key=TRUE,
data = HELPrct |> filter(sex == "male")))
wrapped_expect_doppelganger("bargraph5", bargraph( ~ substance | older, data = HELPrct2))
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.