ruler.R

ruler <- function(width = getOption("width")) {
  x <- seq_len(width)
  y <- dplyr::case_when(
    x %% 10 == 0 ~ as.character((x %/% 10) %% 10),
    x %% 5 == 0  ~ "+",
    TRUE         ~ "-"
  )
  cat(y, "\n", sep = "")
  cat(x %% 10, "\n", sep = "")
}
ruler()
#> ----+----1----+----2----+----3----+----4----+----5----+----6----+----7----+
#> 123456789012345678901234567890123456789012345678901234567890123456789012345