context("Points base")
test_that("points have names", {
params <- list(x = 1:10)
points <- Points$new(params)
points$get_params()
points$get_data()
expect_equal(points$data, data.frame(x = 1:10,
y = 1:10,
radius = 5,
point_name = as.character(1:10)
))
params <- list(x = 1:10,
names = letters[1:10])
points <- Points$new(params)
points$get_params()
points$get_data()
expect_equal(points$data, data.frame(x = 1:10,
y = 1:10,
point_name = letters[1:10],
radius = 5
))
})
test_that("validate_formats", {
params <- list(x = 1:10,
extra = list(a = 1:10),
tooltip_formats = list(paco = "d"))
points <- Points$new(params)
points$get_params()
expect_error(points$get_data(), "The following format names are not x, y, or any of the extra names:\n\tpaco")
})
test_that("color_domain", {
params <- list(color_groups = c(.5,.4,.3,.2,.1))
points <- Points$new(params)
points$get_params()
expect_equal(points$params$color_domain, c(.1, .5), info = "quantitative color_groups, no color_domain")
params <- list(color_groups = c(.5,.4,.3,.2,.1),
color_domain = c(0,1))
points <- Points$new(params)
points$get_params()
expect_equal(points$params$color_domain, c(0, 1), info = "quantitative color_groups, color_domain")
params <- list(color_groups = letters[1:10], color_domain = c(0,1))
points <- Points$new(params)
expect_error(points$get_params(), "color_groups has categorical values", info = "categorical color_groups, color_domain")
})
context("Points clickme")
# sanity test
test_that("clickme", {
# capture.output(expect_that(clickme("points", 1:10), not(throws_error())))
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.