tests/testthat/test-rv_compact_color_order.R

In EDJNet/riskviewer: A modern implementation of the Risk Characterisation Theatre

test_that("order of colors is kept", {
  risk_ratio <- tibble::tribble(
    ~Risk, ~Ratio,
    "Green", 0.01,
    "Blue", 0.04,
    "Red", 0.08,
    "Pink", 0.16
  )


  rv_create_airplane_compact(
    risk_ratio = risk_ratio,
    fill = c("green", "blue", "red", "pink"),
    na_colour = "grey90"
  )
})



test_that("multiplication works", {
  risk_ratio <- tibble::tribble(
    ~Risk, ~Ratio,
    "Green", 0.01,
    "Blue", 0.04,
    "Red", 0.08,
    "Yellow", 0.16
  )

  #
  # risk_vector = NULL
  # risk_names = NULL
  # risk_places = NULL
  # rows = 33
  # seats_per_row = 6
  # fill = c("green", "blue", "red", "pink")
  # na_colour = "grey90"
  # title = NULL
  # font_family = "sans"
  # legend_position = "none"
  #
  rv_create_airplane_combo(
    risk_ratio = risk_ratio,
    number_of_planes = 10,
    compact = TRUE,
    fill = c("green", "blue", "red", "yellow"),
    nrow = 2,
    ncol = 5
  )
})