tests/testthat/test-read_bruker.R

context("test-read_bruker")

test_that("nmr_read_samples_dir works", {
  dir_to_demo_dataset <- system.file("dataset-demo", package = "AlpsNMR")
  dataset <- nmr_read_samples_dir(dir_to_demo_dataset)
  expect_equal(dataset$num_samples, 3)
})

Try the AlpsNMR package in your browser

Any scripts or data that you put into this service are public.

AlpsNMR documentation built on April 1, 2021, 6:02 p.m.