R/utils.R

In jolars/qualpalr: Automatic Generation of Qualitative Color Palettes

# Scale to range ----------------------------------------------------------

scale_runif <- function(x, new_min, new_max) {
  (new_max - new_min) * (x - 1) + new_max
}

# Check if number is integer --------------------------------------------
is_integer <- function(x) {
  x == round(x)
}