A generic function to query the loon (tcl) widget from the given target

# S3 method for l_tour
l_getPlots(target)

Arguments

target

a loon object

Value

a loon widget

Examples

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 }