tests/testthat/test_magpix.R

In hemoshear/assayr2: Tools for analyzing assay data

# test_magpix.R

context("test magpix utilities")

infiles <- c(
  system.file("extdata", "magpix_plate1_testfile.csv",
                       package="assayr2"),
  system.file("extdata", "magpix_plate2_testfile.csv",
              package="assayr2")
)
  
plate_id <- 1:2
d <- suppressWarnings(mp_express(infiles, plate_id))

test_that("mp_express returns a list of data.frames", {
  expect_true(inherits(d, "list"))
  expect_true(inherits(d$sample, "data.frame"))
  expect_true(inherits(d$sc_data, "data.frame"))
  expect_true(inherits(d$curves, "data.frame"))
})

test_that("mp_express returns data.frames without list columns", {
  expect_true(all(lapply(d$sample, class) != "list"))
  expect_true(all(lapply(d$sc_date, class) != "list"))
  expect_true(all(lapply(d$curves, class) != "list"))
})