tests/testthat/test-ensemble.R

In TidyMultiqc: Converts 'MultiQC' Reports into Tidy Data Frames

# Tests for simultaneously loading multiple files from different sources

test_that("We can combine two multiqc reports with unrelated columns", {
  report <- load_multiqc(
    paths = c(
      system.file("extdata", "wgs/multiqc_data.json", package = "TidyMultiqc"),
      system.file("extdata", "HG00096/multiqc_data.json", package = "TidyMultiqc")
    ),
    sections = "general"
  )

  # Sample IDs should be unique
  expect_equal(
    report$metadata.sample_id %>% unique() %>% length(),
    report$metadata.sample_id %>% length()
  )
  expect_gt(ncol(report), 100)
  expect_equal(nrow(report), 6 + 1)
})