tests/testthat/test-chart_mediaplan.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) %>% dplyr::pull(name)
myscenario <- scenario_list[[1]]
summarise_scenarios(scenario_list)

myscenario <- set_scenario(
      scenario = myscenario,
      period = "month",
      budget = 38e6,
      kpi1 = "Profit"
)

myscenario <- run_optimization(myscenario)

scenario_list <- list(myscenario)

# view outputs --------------------------------------------------
df <- create_all_scenarios_table(scenario_list)


chart1 <- chart_mediaplan(df, "zero", "alloc_unit")
chart2 <- chart_mediaplan(df, "zero", "channel")
chart3 <- chart_mediaplan(df, "zero", "channel.group.level2")

test_that("function outputs a list",{
      expect_type(chart1, "list")
      expect_type(chart2, "list")
      expect_type(chart3, "list")
})