tests/testthat/test-compare-indicators.R

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

context("compare_indicators")
library(tidyr)
library(fingertipscharts)
df <- create_test_data()

set.seed(42)
df_ci <- df %>%
        filter(IndicatorName %in% c("Indicator 1", "Indicator 3")) %>%
        select(IndicatorName, AreaCode, Value) %>%
        pivot_wider(names_from = IndicatorName,
                    values_from = Value) %>%
        rename(Ind1 = `Indicator 1`,
               Ind3 = `Indicator 3`) %>%
        mutate(Ind2 = runif(nrow(.), min = Ind1 * 0.5, max = Ind1 * 1.5))
comp_ind_p <- compare_indicators(df_ci,
                                 x = Ind1,
                                 y = Ind3,
                                 xlab = "Indicator 1 label",
                                 ylab = "Indicator 3 label",
                                 add_R2 = TRUE)

comp_ind_highlight_p <- compare_indicators(df_ci,
                                           x = Ind1,
                                           y = Ind3,
                                           xlab = "Indicator 1 label",
                                           ylab = "Indicator 3 label",
                                           highlight_area = c("C001", "AC172"),
                                           area = AreaCode,
                                           add_R2 = TRUE)

comp_ind__R2_p <- compare_indicators(df_ci,
                                     x = Ind1,
                                     y = Ind2,
                                     xlab = "Indicator 1 label",
                                     ylab = "Indicator 2 label",
                                     add_R2 = TRUE)

test_that("Error for missing area field works", {
        expect_error(compare_indicators(df_ci,
                                        x = Ind1,
                                        y = Ind3,
                                        xlab = "Indicator 1 label",
                                        ylab = "Indicator 3 label",
                                        highlight_area = c("C001", "AC172"),
                                        add_R2 = TRUE),
                     "If highlight_area contains a value, so must area_field")
})

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

test_that("compare indicators no highlight draws correctly", {
        vdiffr::expect_doppelganger("compare indicators no highlight",
                                    comp_ind_p
        )
})

test_that("compare indicators highlight draws correctly", {
        vdiffr::expect_doppelganger("compare indicators highlight",
                                    comp_ind_highlight_p
        )
})

test_that("compare indicators highlight high R2 draws correctly", {
        vdiffr::expect_doppelganger("compare indicators high R2",
                                    comp_ind__R2_p
        )
})