R/utils.R

Defines functions `%||%`

#' @noRd
`%||%` <- function(x, y)
{
  if(is.null(x)) y else x
}

#' @noRd
ggname <- function (prefix, grob)
{
  grob$name <- grid::grobName(grob, prefix)
  grob
}
houyunhuang/ggvwline documentation built on March 10, 2020, 6:05 p.m.