tests/testthat/test-load_icp.R

In bentrueman/fffprocessr: Process FFF-UV-MALS-ICP-MS Data

test_that("load_icp() example yields expected number of rows", {
  path <- system.file("extdata", package = "fffprocessr")
  expect_equal(nrow(load_icp(path = path)),  8445)
})


test_that("load_icp() yields expected column means", {
  path <- system.file("extdata", package = "fffprocessr")
  expect_equal(
    dplyr::summarize_if(load_icp(path = path), is.numeric, ~ round(mean(.x), 1)),
    tibble::tibble(time = 18.9, conc = 10)
  )
})

test_that("load_icp() accepts a file path or a character vector of files", {
  skip_on_ci()
  # this should be true of all the load_...() functions
  expect_equal(0,1)
})