Nothing
test_that("Test functionality", {
testthat::skip_on_cran()
local_edition(3)
## default values
expect_s4_class(read_PSL2R(
file = system.file("extdata/DorNie_0016.psl", package = "Luminescence")
), "RLum.Analysis")
## custom values (all inverted)
expect_s4_class(read_PSL2R(
file = system.file("extdata/DorNie_0016.psl", package = "Luminescence"),
drop_bg = TRUE, as_decay_curve = FALSE, smooth = TRUE, merge = TRUE
), "RLum.Analysis")
})
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.