if(interactive()) {
p <- l_tour(iris[, -5])
l_isLoonWidget(p) # FALSE
q <- l_getPlots(p)
l_isLoonWidget(q) # TRUE
# `l_compound` widget
p <- l_tour_pairs(tourr::flea[, -7])
l_isLoonWidget(p) # FALSE
q <- l_getPlots(p)
l_isLoonWidget(q) # FALSE
is(q, "l_compound") # TRUE
}
Run the code above in your browser using DataLab