Nothing
context("box-plots")
library(fingertipscharts)
df <- create_test_data()
df_box <- df %>%
filter(AreaType == "Local") %>%
arrange(IndicatorName) %>%
mutate(Timeperiod = rep(c("2011", "2012", "2013", "2014", "2015", "2016"),
each = 100))
p <- box_plots(df_box,
timeperiod = Timeperiod,
value = Value,
title = "Title of chart",
subtitle = "Boxplot over time",
ylab = "Proportion (%)")
# Visual tests ------------------------------------------------------------
test_that("box plots draws correctly", {
vdiffr::expect_doppelganger("box-plots",
p
)
})
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.