tests/testthat/test-read_biotek.R

In rforbiochemists/wellr: Utilities for Working With Plate Based Data

test_that("Test the Reading of Biotek Files", {
    file = "20220929_1steptimer20.csv"
    meta = "20220929_1steptimer20_metainfo.csv"

    dat <- plate_read_biotek(system.file("extdata", file, package = "wellr"))
    dat <- plate_add_meta(
      data = dat,
      file = system.file("extdata", meta, package = "wellr")
    )

    expect_snapshot(head(dat))
})

file = "2024-02-29_vio_GFP_main.csv"

test_that("Read single wavelength", {
  dat <- plate_read_biotek(system.file("extdata", file, package = "wellr"))
  expect_snapshot(head(dat))
})

test_that("Read second wavelength", {
  dat <- plate_read_biotek(system.file("extdata", file, package = "wellr"), second_wl = TRUE)
  expect_snapshot(head(dat))

})