tests/testthat/test-gen_OpenSpecy.R

In OpenSpecy: Analyze, Process, Identify, and Share Raman and (FT)IR Spectra

data("raman_hdpe")
csv <- read_extdata("raman_hdpe.csv") |> read.csv()

test_that("print() and summary() work as expected", {
  print(raman_hdpe) |> expect_output(
    paste0("wavenumber.*intensity.*308.221.*",
           "48.*metadata.*spectrum_identity.*HDPE"))
  summary(raman_hdpe) |> expect_output("Length.*964.*spectra.*26")
})

test_that("head() returns the first few lines of the OpenSpecy object", {
  head <- head(raman_hdpe)

  nrow(head) |> expect_equal(6)
  head |> expect_equal(head(data.table(wavenumber = raman_hdpe$wavenumber,
                                       raman_hdpe$spectra)))
})

test_that("plotting works without errors", {
  plot(raman_hdpe) |> expect_silent()
})

test_that("conversion to tables works as expected", {
  df <- as.data.frame(raman_hdpe) |> expect_silent()
  dt <- as.data.table(raman_hdpe) |> expect_silent()

  expect_s3_class(df, "data.frame")
  expect_s3_class(dt, "data.table")

  expect_equal(df, csv)
  expect_equal(dt, as.data.table(csv))
})