tests/testthat/test-nmr_data.R

In AlpsNMR: Automated spectraL Processing System for NMR

context("test-nmr_data")

test_that("new_nmr_dataset_1D", {
  ds <- new_nmr_dataset_1D(ppm_axis = c(1,2,3),
                           data_1r = matrix(c(1,2,1), nrow = 1),
                           metadata = list(external = data.frame(NMRExperiment = "10")))
  dataset <- nmr_data(ds)
  expect_true(is.matrix(dataset))
})