_targets.R

library(targets)

tar_option_set(
  packages = c("dplyr", "flextable", "ggplot2", "scales", "tibble", "wallis"),
    format = "rds"
)

tar_source() 

list(
  tar_target(orders, seq(10, 80, 2)),
  tar_target(seeds, 42:46),
  tar_target(
       name = results_1,
    command = random_room_1(orders, seeds),
    pattern = cross(orders, seeds)
  ),
  tar_target(
       name = results_2,
    command = random_room_2(orders, seeds),
    pattern = cross(orders, seeds)
  ),
  tar_target(
    name = results,
    command = bind_rows(results_1 |> mutate(algo = 1), results_2 |> mutate(algo = 2))
  ),
  tar_target(
    name = summary_results,
    command = {
      results |>
        group_by(n) |>
        summarise(
          min_filled = min(n_filled),
          max_filled = max(n_filled),
          min_volume = min(volume),
          max_volume = max(volume)
        )
    }
  ),
  tar_target(
    name = summary_results_as_flextable,
    command = {
      set_flextable_defaults(
        font.size = 6,
          padding = 6,
        theme_fun = theme_zebra
      )
      flextable(summary_results)
    }
  ),
  tar_target(
    name = results_plot,
    command = {
      ggplot(results, aes(n, volume)) +
        geom_point(aes(colour = as.factor(algo)), alpha = 0.3, size = 0.1) +
        theme_bw() +
        scale_x_continuous(labels = comma) +
        ylim(0.4, 1) +
        theme(legend.title = element_blank()) +
        geom_function(fun = function(n) (n^2/4 - n/2)/((n^2 - n)/2), colour = "red")
    }
  ),
  tar_target(
    name = save_table_as_png,
    command = save_as_image(summary_results_as_flextable, path = "png/summary-results.png")
  ),
  tar_target(
    name = save_results_plot,
    command = ggsave(plot = results_plot, filename = "png/results-plot.png", width = 1200, height = 800, units = "px")
  )
)