Nothing
library(tinytest)
library(ggiraph)
library(grid)
library(xml2)
source("setup.R")
# interactive_segments_grob ----
{
eval(test_grob, envir = list(name = "interactive_segments_grob"))
}
{
doc <- dsvg_doc({
s <- seq(from = 0.3, to = 0.7, length.out = 10)
s2 <- seq(from = 0.4, to = 0.8, length.out = 10)
gr <- interactive_segments_grob(
x0 = s,
y0 = s,
x1 = s2,
y1 = s2,
tooltip = "tooltip",
info = "bar",
extra_interactive_params = "info"
)
grid.draw(gr)
})
nodes <- xml_find_all(doc, ".//line[@info]")
expect_equal(length(nodes), length(s))
tooltips <- xml_find_all(doc, ".//line[@info][@title]")
expect_equal(length(tooltips), length(s))
tooltips <- unique(sapply(tooltips, xml_attr, "title"))
expect_equal(tooltips, "tooltip")
}
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.