Nothing
context("test_linking")
test_that("linking on size and selected works", {
n <- 149
iris_ <- iris[seq(n), ]
selected <- sample(c(T, F), size = n, replace = TRUE)
p1 <- l_plot(iris_,
size = sample(c(2, 4, 8), n, replace = TRUE),
selected = selected,
linkingGroup = "iris_")
p2 <- l_plot(iris_, linkingGroup = "iris_")
p3 <- l_plot3D(iris_$Sepal.Length, iris_$Sepal.Width, iris_$Petal.Length,
linkingGroup = "iris_")
h <- l_hist(iris_, linkingGroup = "iris_")
sa <- l_serialaxes(iris_, linkingGroup = "iris_")
selected <- p1['selected']
expect_equal(p2['selected'], selected)
expect_equal(p3['selected'], selected)
expect_equal(h['selected'], selected)
expect_equal(sa['selected'], selected)
size <- p1['size']
expect_equal(p2['size'], size)
expect_equal(p3['size'], size)
p3["selected"] <- sample(c(T, F), size = n, replace = TRUE)
expect_equal(p1['selected'], p3['selected'])
expect_equal(p2['selected'], p3['selected'])
expect_equal(h['selected'], p3['selected'])
expect_equal(sa['selected'], p3['selected'])
h["selected"] <- sample(c(T, F), size = n, replace = TRUE)
expect_equal(p1['selected'], h['selected'])
expect_equal(p2['selected'], h['selected'])
expect_equal(p3['selected'], h['selected'])
expect_equal(sa['selected'], h['selected'])
sa["selected"] <- sample(c(T, F), size = n, replace = TRUE)
expect_equal(p1['selected'], sa['selected'])
expect_equal(p2['selected'], sa['selected'])
expect_equal(p3['selected'], sa['selected'])
expect_equal(h['selected'], sa['selected'])
p2["size"] <- sample(c(2, 4, 8), n, replace = TRUE)
expect_equal(p1['size'], p2['size'])
expect_equal(p3['size'], p2['size'])
})
#}
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.