R/y-axes.R

Defines functions is_yr is_yl

is_yl  <- function(p, j) {
  if (missing(j)) j <- seq_along(p$y_axis)
  "l"  == p$y_axis[j]
}
is_yr  <- function(p, j) {
  if (missing(j)) j <- seq_along(p$y_axis)
  "r"  == p$y_axis[j]
}
data-science-made-easy/nicerplot documentation built on Nov. 3, 2024, 9:23 p.m.