tests/testthat/test-chart_comparison_overview.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)

myscenario2 <- scenario_list[[2]]
myscenario2 <- set_scenario(
      scenario = myscenario2,
      budget = NA,
      period = "month",
      kpi1 = "Profit"
)
myscenario2 <- run_optimization(myscenario2)

scenario_list <- list(myscenario1, myscenario2)

summarise_scenarios(scenario_list)

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

chart_comparison_overview(df, "one", "zero", "Profit", "channel")
chart_comparison_overview(df, "one", "one", "Profit", "channel")

chart_comparison_overview(df, "one", "zero", "Brand Health", "channel")

chart1 <- chart_comparison_overview(df, "one", "zero", "Profit", "channel")
chart2 <- chart_comparison_overview(df, "one", "zero", "Profit", "period_level2")
chart3 <- chart_comparison_overview(df, "one", "one", "Profit", "channel")


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

# chart_comparison_overview(df, "one", "zero", "Profit", "channel")
# chart_comparison_overview(df, "one", "zero", "Profit", "period_level2")
# chart_comparison_overview(df, "one", "one", "Profit", "channel")

path <- system.file("testdata", "tnz3", 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 = "Annual",
      budget = 20e6,
      kpi1 = "Revenue"
)
myscenario1 <- run_optimization(myscenario1)

myscenario2 <- scenario_list[[2]]
myscenario2 <- set_scenario(
      scenario = myscenario2,
      budget = 20e6,
      period = "Annual",
      kpi1 = "Revenue"
)
myscenario2 <- run_optimization(myscenario2)

scenario_list <- list(myscenario1, myscenario2)

summarise_scenarios(scenario_list)

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

(chart1 <- chart_comparison_overview(df, "one", "zero", "Revenue", "channel"))
(chart2 <- chart_comparison_overview(df, "one", "zero", "Revenue", "period_level2"))
(chart3 <- chart_comparison_overview(df, "one", "one", "Revenue", "period_level2"))

# all_scenarios_table = df
# scenario1 = "one"
# scenario2 = "zero"
# kpi1 = "Revenue"
# chosen_grouping = "channel"
#
# all_data = comparison_data
# a_metric = "performance_indicator"