R/_Merry-Xmas.R

set.seed(19421956)
part1 <- sample(letters, size = 5, replace = TRUE) |>
  paste(collapse = "")
set.seed(64927)
part2 <- sample(letters, size = 4, replace = TRUE) |>
  paste(collapse = "")
paste(part1, part2) |>
  stringr::str_to_title()
fjodor/MagicNumbers documentation built on July 27, 2023, 3:21 a.m.