A generic function to query the loon
(tcl) widget from the given target
# S3 method for l_tour l_getPlots(target)
target | a |
---|
a loon
widget
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 }