tests/testthat/test-trends.R

In PublicHealthEngland/fingertipscharts: Produce Charts that you See on the Fingertips Website

# Visual tests ------------------------------------------------------------

test_that("trends with significance fill draws correctly", {
        df_trend <- create_test_data() %>%
                arrange(IndicatorName) %>%
                mutate(Timeperiod = rep(c("2011", "2012", "2013", "2014", "2015", "2016"),
                                        each = 111))
        with_fill_p <- trends(df_trend,
                              timeperiod = Timeperiod,
                              value = Value,
                              area = AreaCode,
                              comparator = "C001",
                              area_name = "AC142",
                              fill = Significance,
                              lowerci = LCI,
                              upperci = UCI,
                              title = "Trend compared to country",
                              subtitle = "For area AC142",
                              xlab = "Year",
                              ylab = "Value (%)")
        vdiffr::expect_doppelganger("trends with significance fill",
                                    fig = with_fill_p)
})

test_that("trends without significance fill draws correctly", {
        df_trend <- create_test_data() %>%
                arrange(IndicatorName) %>%
                mutate(Timeperiod = rep(c("2011", "2012", "2013", "2014", "2015", "2016"),
                                        each = 111))
        without_fill_p <- trends(df_trend,
                                 timeperiod = Timeperiod,
                                 value = Value,
                                 area = AreaCode,
                                 comparator = "C001",
                                 area_name = "AC142",
                                 lowerci = LCI,
                                 upperci = UCI,
                                 title = "Trend compared to country",
                                 subtitle = "For area AC142",
                                 xlab = "Year",
                                 ylab = "Value (%)")

        vdiffr::expect_doppelganger("trends without significance fill",
                                    fig = without_fill_p)
})