library(eenv)
context("Test biosets")
test_that("biosets are read correctly", {
calibrator_names <-
c("CAL1", "CAL2", "CAL3", "CAL4", "CAL5", "CAL6", "CAL7", "CAL8", "CAL9",
"CAL10")
calibrator_values <- exp(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10))
sets <-
plates_read(
plates = 2,
cal_names = calibrator_names,
cal_values = calibrator_values,
write_data = FALSE,
use_written_data = FALSE)
expect_true(is.tibble(sets$all))
})
test_that("biosets are cached correctly", {
calibrator_names <-
c("CAL1", "CAL2", "CAL3", "CAL4", "CAL5", "CAL6", "CAL7", "CAL8", "CAL9",
"CAL10")
calibrator_values <- exp(c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10))
sets <-
plates_read(
plates = 2,
cal_names = calibrator_names,
cal_values = calibrator_values,
write_data = TRUE,
use_written_data = FALSE)
sets2 <-
plates_read(
plates = 2,
cal_names = calibrator_names,
cal_values = calibrator_values,
write_data = FALSE,
use_written_data = TRUE)
expect_true(is.tibble(sets2$all))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.