R/helperfuns.R

Defines functions ggname has_name

library(grid)

has_name <- function(x) {
  nms <- names(x)
  if (is.null(nms)) {
    return(rep(FALSE, length(x)))
  }

  !is.na(nms) & nms != ""
}

ggname <- function(prefix, grob) {
  grob$name <- grobName(grob, prefix)
  grob
}
jrodu/qqboxplot documentation built on Jan. 30, 2023, 6:03 a.m.