tests/testthat/test-for_asics.R

In sipss/AlpsNMR: Automated spectraL Processing System for NMR

test_that("to_ASICS works", {
    skip_if_not_installed("ASICS")
    # Create a random spectra matrix
    nsamp <- 3
    npoints <- 300
    metadata <- list(external = data.frame(
        NMRExperiment = paste0("Sample", seq_len(nsamp))
    ))
    dummy_nmr_dataset_1D <- new_nmr_dataset_1D(
        ppm_axis = seq(from = 0.2, to = 10, length.out = npoints),
        data_1r = matrix(runif(nsamp * npoints), nrow = nsamp, ncol = npoints),
        metadata = metadata
    )
    spec_obj <- to_ASICS(dummy_nmr_dataset_1D)
    expect_true(class(spec_obj)[1] == "Spectra")
})