tests/testthat/test_replicate_RLum.R

test_that("Test replication of RLum-objects", {
  testthat::skip_on_cran()
  local_edition(3)

  data(ExampleData.RLum.Analysis, envir = environment())
  expect_silent(results <- rep(IRSAR.RF.Data[[1]], 5))
  expect_silent(rep(IRSAR.RF.Data[[1]]))

  ##check
  expect_equal(length(results),5)

})
R-Lum/Luminescence documentation built on March 2, 2024, 12:39 p.m.