R/ggpacket_index.R

In dgkf/ggpackets: Package Plot Layers for Easier Portability and Modularization

subset_ggpacket <- function(x, i, ...) {
  UseMethod("subset_ggpacket", i)
}

#' @export
subset_ggpacket.default <- function(x, i, ...) {
  x@ggcalls <- x@ggcalls[i, ...]
  x
}

#' @export
subset_ggpacket.character <- function(x, i, ...) {
  xs <- vapply(x@ggcalls, function(xi) any(i %in% attr(xi, "ids")), logical(1L))
  x[xs, ...]
}