R/utils.R

In clauswilke/ggtextures: Drawing Textured Rectangles and Bars with grid and ggplot2

# test whether a unit object has unit "null"
is_null_unit <- function(u) {
  if (is.unit(u)) {
    identical(unit_type(u), "null")
  } else {
    FALSE
  }
}

# test whether a unit object has unit "native"
is_native_unit <- function(u) {
  if (is.unit(u)) {
    identical(unit_type(u), "native")
  } else {
    FALSE
  }
}