R/add_zero.R

In kristian-bak/betting: An Amazing Shiny App

Defines functions add_zero

Documented in add_zero

#' Add zero
#' @param x vector of any class
add_zero <- function(x) {
  
  ifelse(nchar(x) == 1, paste0("0", x), x)
  
}