Nothing
## create dataset
data(ExampleData.CW_OSL_Curve, envir = environment())
temp <- as(ExampleData.CW_OSL_Curve, "RLum.Data.Curve")
test_that("input validation", {
testthat::skip_on_cran()
expect_error(plot_RLum.Data.Curve("error"),
"'object' should be of class 'RLum.Data.Curve'")
expect_error(plot_RLum.Data.Curve(temp, norm = "error"),
"'norm' should be one of 'max', 'last', 'huot'")
temp_NA <- temp
temp_NA@data[] <- suppressWarnings(NA_real_)
expect_warning(expect_null(plot_RLum.Data.Curve(temp_NA)),
"Curve contains only NA-values, nothing plotted")
expect_warning(plot_RLum.Data.Curve(set_RLum("RLum.Data.Curve"), norm = TRUE),
"Curve normalisation produced Inf/NaN values, values replaced by 0")
})
test_that("check functionality", {
testthat::skip_on_cran()
## run function with various conditions
expect_silent(plot_RLum.Data.Curve(temp))
expect_silent(plot_RLum.Data.Curve(temp, norm = TRUE))
expect_silent(plot_RLum.Data.Curve(temp, norm = "max"))
expect_silent(plot_RLum.Data.Curve(temp, norm = "last"))
expect_silent(plot_RLum.Data.Curve(temp, norm = "huot"))
expect_silent(plot_RLum.Data.Curve(temp, smooth = TRUE))
expect_silent(plot_RLum.Data.Curve(temp, par.local = FALSE))
temp@recordType <- "OSL"
temp@info <- list(interval = 1)
expect_silent(plot_RLum.Data.Curve(temp))
temp@recordType <- "TL"
temp@info <- list(curveDescripter = "xlab;ylab", RATE = 2)
expect_silent(plot_RLum.Data.Curve(temp))
})
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.