Nothing
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)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.