tests/testthat/test-srep_outputs.R

In autoslider.core: Slide Automation for Tables, Listings and Figures

test_that("Listing print correctly", {
  # skip_if_too_deep(1)
  filters::load_filters(file.path(
    system.file(package = "autoslider.core"),
    "filters.yml"
  ), overwrite = TRUE)

  spec_file <- file.path(system.file(package = "autoslider.core"), "spec.yml")

  full_spec <- spec_file %>%
    read_spec()

  outputs <- full_spec %>%
    filter_spec(., program %in% c(
      "t_ds_slide",
      "t_ds_trt_slide",
      "t_dd_slide",
      "t_ae_slide",
      "t_ae_sae_slide",
      # "g_km_slide",
      # "g_km_annotation_surv",
      # "g_km_annotation_coxph",
      "t_ae_pt_slide",
      "t_ae_pt_soc_slide",
      "t_ae_pt_diff_slide",
      "t_ae_pt_diff_soc_slide",
      "t_pop_slide",
      "t_dor_slide",
      "t_orr_dor_slide",
      "t_tte_slide",
      "t_orr_slide",
      # "l_dsl01_slide",
      "g_vs_slide",
      "g_lab_slide",
      "g_eg_slide",
      "t_dm_slide",
      "t_vs_slide",
      "t_ae_summ_slide",
      "t_ex_slide",
      "l_ae_slide"
    )) %>%
    generate_outputs(datasets = testdata) %>%
    decorate_outputs(
      version_label = NULL,
      for_test = TRUE
    )

  output_dir <- tempdir()
  testthat::expect_output({
    outputs %>%
      generate_slides(outfile = paste0(output_dir, "/srep.pptx"), t_cpp = 250, t_lpp = 50)
  })

  testthat::expect_no_error({
    outputs %>%
      save_outputs(outfolder = output_dir)
  })
})