tests/testthat/test_widgetPaths.R

In loon: Interactive Statistical Data Visualization

# 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))
# })