gistfile1.txt

num_suffix <- function(x, base = 1000, suffixes = c("K", "M", "B", "T")) {
  
  if (length(suffixes) == 0) {
    tibble(
      scale_by = rep_len(1, length(x)),
      suffix = rep_len("", length(x))
    )
  }
  
  i <- floor(log(abs(x), base = base))
  i <- pmin(i, length(suffixes))
  
  tibble(
    scale_by = base ^ i,
    suffix = ifelse(i == 0, "", suffixes[pmax(1, i)])
  )
}