small test

NAMESPACE

@@ -3,6 +3,7 @@
 export(bar_plot_emission_profile)
 export(bar_plot_emission_profile_financial)
 export(benchmarks)
+export(example_financial)
 export(map_region_risk)
 export(plot_sankey)
 export(scatter_plot_financial)

R/utils-test.R

@@ -0,0 +1,31 @@
+#' Construct example financial data
+#'
+#' @param ... Passed to [tibble()].
+#'
+#' @return A [tibble()]
+#' @keywords internal
+#' @export
+#'
+#' @examples
+#' example_financial()
+example_financial <- function(bank_id = "a",
+                              amount_total = 10,
+                              company_name = "b",
+                              emission_profile = "medium",
+                              benchmark = "c",
+                              equal_weight_finance = 10,
+                              worst_case_finance = 10,
+                              best_case_finance = 10,
+                              ...) {
+  tibble::tibble(
+    bank_id = bank_id,
+    amount_total = amount_total,
+    company_name = company_name,
+    emission_profile = emission_profile,
+    benchmark = benchmark,
+    equal_weight_finance = equal_weight_finance,
+    worst_case_finance = worst_case_finance,
+    best_case_finance = best_case_finance,
+    ...
+  )
+}

tests/testthat/test-bar_plot_emission_profile_financial.R

@@ -1,17 +1,20 @@
 test_that("returns an object of the expected class", {
-  plot <- bar_plot_emission_profile_financial(financial, benchmarks())
+  data <- example_financial(ep_product = "e")
+  plot <- bar_plot_emission_profile_financial(data, benchmarks())
   expect_s3_class(plot, "ggplot")
 })
 
 test_that("returns correct risk category values", {
-  plot <- bar_plot_emission_profile_financial(financial, benchmarks())
+  data <- example_financial(ep_product = "e")
+  plot <- bar_plot_emission_profile_financial(data, benchmarks())
   risk_categories <- levels(plot$data$risk_category_var)
   expected_risk_categories <- c("low", "medium", "high")
   expect_equal(risk_categories, expected_risk_categories)
 })
 
 test_that("returns correct benchmarks values", {
-  plot <- bar_plot_emission_profile_financial(financial, benchmarks())
+  data <- example_financial(ep_product = "e")
+  plot <- bar_plot_emission_profile_financial(data, benchmarks())
   benchmarks <- unique(plot$data$benchmark)
   expected_benchmarks <- financial |>
     pull(benchmark) |>