R/S3-vpStack.R

In great-northern-diver/loon.shiny: Automatically Create a 'Shiny' App Based on Interactive 'Loon' Widgets

# It is not suggested
# it modifies the data structure of the grid graphics
# names.vpStack <- function(x) {
#   vapply(x,
#          function(v) {
#            v$name
#          }, character(1L))
# }
#
# `[.vpStack` <- function(x, i) {
#   x[[which(grepl(i, vpStack_names(x)))]]
# }

vpStack_names <- function(x) {
    vapply(x,
           function(v) {
             v$name
           }, character(1L))
}

get_vp_from_vpStack <- function(x, i) {
  x[[which(grepl(i, vpStack_names(x)))]]
}