Nothing
test_that("crosstalk works with ggduo and ggpairs", {
skip_if_not_installed("crosstalk")
sd <- try(crosstalk::SharedData$new(iris[1:4]), silent = TRUE)
if (inherits(sd, "try-error")) {
skip("crosstalk data can not be initialized")
}
expect_silent({
pm <- ggpairs(sd)
})
expect_error(
{
pm <- ggpairs(sd, 3:5)
},
"Make sure your numeric"
)
expect_error(
{
pm <- ggpairs(sd, c("Petal.Length", "Petal.Width", crosstalk_key()))
},
"Columns in 'columns' not"
)
expect_silent({
pm <- ggduo(sd)
})
expect_error(
{
pm <- ggduo(sd, c(1:2, 5), 3:5)
},
"Make sure your numeric 'columnsX'"
)
expect_error(
{
pm <- ggduo(
sd,
c("Sepal.Length", "Sepal.Width", crosstalk_key()),
c("Petal.Length", "Petal.Width")
)
},
"Columns in 'columnsX' not"
)
expect_error(
{
pm <- ggduo(
sd,
c("Sepal.Length", "Sepal.Width"),
c("Petal.Length", "Petal.Width", crosstalk_key())
)
},
"Columns in 'columnsY' not"
)
})
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.