Nothing
test_that("Full function test", {
testthat::skip_on_cran()
local_edition(3)
#load test data
data(AgeS,envir = environment())
##force function stop
expect_error(plot_Scatterplots("test"),
regexp = "Wrong input, only objects of type 'mcmc.list' or single 'data.frame' are allowed. Please check the manual!")
expect_error(plot_Scatterplots(object = AgeS$Sampling, variables = c("A", "B")),
regexp = "You can only select one variable at the time!")
expect_error(plot_Scatterplots(object = AgeS$Sampling, variables = c("B")),
regexp = " Invalid 'variables', they did not match your dataset. Variable names of your dataset: A, D, sD.")
##run function usual cases
expect_silent(plot_Scatterplots(object = AgeS$Sampling))
expect_silent(plot_Scatterplots(object = AgeS$Sampling, plot_type = "smoothScatter"))
expect_warning(plot_Scatterplots(object = AgeS$Sampling, sample_names = "1"),
regexp = "length of 'sample_names' shorter than the number of samples; default values used!")
expect_warning(plot_Scatterplots(object = AgeS$Sampling, sample_selection = 1:100),
regexp = "You have only 2 samples. 'sample_selection' wrong, reset to default!")
expect_warning(plot_Scatterplots(object = AgeS$Sampling, n.chains = 10),
regexp = "'n.chains' setting wrong. You have 3 chains, reset to default")
##run single mode
expect_silent(plot_Scatterplots(object = AgeS$Sampling, plot_mode = "single", plot_type = "smoothScatter"))
##provide data.frame as input
expect_silent(plot_Scatterplots(object = as.data.frame(AgeS$Sampling[[1]])))
##stops
expect_error(plot_Scatterplots(object = as.data.frame(AgeS$Sampling[[1]][1])))
df <- as.data.frame(AgeS$Sampling[[1]])
df[[2]] <- as.character(df[[2]])
expect_error(plot_Scatterplots(object =df), regexp = "Only numeric values are allowed!")
})
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.