tests/testthat/test_widgetPaths.R

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

Try the loon package in your browser

Any scripts or data that you put into this service are public.

loon documentation built on June 14, 2021, 9:07 a.m.