Nothing
# context("test_widgetPaths")
#
# test_that("we can find unnamed loon widgets", {
#
# p1 <- l_plot(iris, color = iris$Species, linkingGroup = "iris1")
# h1 <- l_hist(iris$Sepal.Length, color = iris$Species, linkingGroup = "iris1")
# h2 <- l_hist(iris, linkingGroup = "iris1")
#
# widgets <- l_loonWidgets()
# hists <- l_loonWidgets("hist")
# expect_true(as.character(h1) %in% names(hists))
# })
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.