Nothing
skip_if_not_installed("chemometrics")
data(NIR, package = "chemometrics")
NIR_sub <- data.frame(NIR$yGlcEtOH, NIR$xNIR[, 1:3])
test_that("warnings", {
expect_warning(
ggfacet(iris, columnsX = 1:5, columnsY = 1),
"1 factor variables are being removed from X columns"
)
expect_warning(
ggfacet(iris, columnsX = 1, columnsY = 1:5),
"1 factor variables are being removed from Y columns"
)
})
test_that("generally works", {
# factor variables
vdiffr::expect_doppelganger(
"factor",
ggfacet(
NIR_sub,
columnsY = 1:2, columnsX = 3:5,
fn = ggally_smooth_loess
)
)
vdiffr::expect_doppelganger(
"pigs",
ggts(pigs, "time", c("gilts", "profit", "s_per_herdsz", "production", "herdsz"))
)
})
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.