R/ruler.R

In cli: Helpers for Developing Command Line Interfaces

#' Print the helpful ruler to the screen
#'
#' @export
#' @param width Ruler width.
#' @examples
#' ruler()

ruler <- function(width = console_width()) {
  x <- seq_len(width)
  y <- rep("-", length(x))

  y[x %% 5 == 0] <- "+"
  y[x %% 10 == 0] <- style_bold(as.character((x[x %% 10 == 0] %/% 10) %% 10))

  cat(y, "\n", sep = "")
  cat(x %% 10, "\n", sep = "")
}