R/create_leading_zeros.R

In BrianAronson/docshop: Doctor Shopping Functions

Defines functions create_leading_zeros

Documented in create_leading_zeros

#' Create leading zeros
#' @export

create_leading_zeros = function(x, digit) {
  with_options(c(scipen = 999),
  str_pad(x, digit, pad = "0"))
}