tests/testthat/helper.R

In 2DegreesInvesting/r2dii.ggplot: Create Standard Static '2dii' Plots

fake_data <- function() {
  data.frame(
    sector = "automotive",
    technology = "electric",
    year = 2020L,
    region = "global",
    scenario_source = "demo_2020",
    metric = "projected",
    production = 1,
    technology_share = 0.2,
    stringsAsFactors = FALSE
  )
}