tests/testthat/test-chart_curves.R

In cath-parkinson/mm.reoptimise: Run and Compare Budget Optimisation in Different Scenarios

path <- system.file("testdata", "three1", package = "mm.reoptimise")

scenario_list <- create_scenario_list(path)

summarise_scenarios(scenario_list)
summarise_scenarios(scenario_list) %>% dplyr::pull(name)

myscenario1 <- scenario_list[[1]]
myscenario1 <- set_scenario(
      scenario = myscenario1,
      period = "month",
      budget = 20e6,
      kpi1 = "Profit"
)
myscenario1 <- run_optimization(myscenario1)


data_filtered <- myscenario1$curves_full %>%
      filter(kpi.level1_name == "Profit",
             period_level2.name == "Jan")

chart_curves(data_filtered)