tests/testthat/test_lazy.R

In Illumina/happyR: Load hap.py results into R

context("Lazy loading")

# setup :: load input data bundled with package
dir <- system.file("extdata", "happy_demo.summary.csv", package = "happyR")
stopifnot(nchar(dir) > 1)
suppressMessages(results <- read_happy(file.path(dirname(dir), "happy_demo")))

suppressMessages(results_nonlazy <- read_happy(file.path(dirname(dir), "happy_demo"), lazy = FALSE))


test_that("PR data are lazy-loaded if selected", {
  if (require(pryr)) {
    expect_true(pryr:::is_promise2("all", results$pr_curve))
    expect_false(pryr:::is_promise2("all", results_nonlazy$pr_curve))
    # is_promise is unreliable, also check sizes
    expect_lt(pryr::object_size(results), pryr::object_size(results_nonlazy))
  }
})

test_that("Lazy data is properly forced", {
  pr_df <- results$pr_curve$all
  expect_is(pr_df, "happy_roc")
  expect_true(nrow(pr_df) > 10)

  if (require(pryr)) {
    expect_equal(pryr::object_size(results), pryr::object_size(results_nonlazy),
                 tolerance = 1e-2)
  }
})