tests/testthat/test-nmr_data.R

In sipss/AlpsNMR: Automated spectraL Processing System for NMR

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))
})