R/grid.R

In ggfx: Pixel Filters for 'ggplot2' and 'grid'

#' @importFrom grid widthDetails grobWidth
#' @export
widthDetails.filter_grob <- function(x) {
  grobWidth(x$grob)
}

#' @importFrom grid heightDetails grobHeight
#' @export
heightDetails.filter_grob <- function(x) {
  grobHeight(x$grob)
}

#' @importFrom grid ascentDetails grobAscent
#' @export
ascentDetails.filter_grob <- function(x) {
  grobAscent(x$grob)
}

#' @importFrom grid descentDetails grobDescent
#' @export
descentDetails.filter_grob <- function(x) {
  grobDescent(x$grob)
}

#' @export
`[[.filter_grob` <- function(x, ..., drop = TRUE) {
  if (..1 %in% names(x)) {
    .subset2(x, ...)
  } else {
    .subset2(x, 'grob')[[...]]
  }
}
#' @export
`$.filter_grob` <- function(x, name) {
  if (name %in% names(x)) {
    .subset2(x, name)
  } else {
    .subset2(x, 'grob')[[name]]
  }
}