R/get_who.R

In cowsay: Messages, Warnings, Strings with Ascii Animals

get_who <- function(by, length) {
  if (.Platform$OS.type == "windows") {
    ua <- c(
      "shortcat",
      "longcat",
      "fish",
      "signbunny",
      "stretchycat",
      "anxiouscat",
      "longtailcat",
      "grumpycat",
      "mushroom"
    )

    if (by %in% ua) {
      abort(c(
        "If you're on Windows, you can't use:",
        set_names(sort(ua), "*")
      ))
    }

    animals <- setdiff(animals, ua)
  }

  by <- arg_match(
    arg = by,
    values = c(animals, "rms", "random"),
    error_call = parent.frame()
  )

  if (by == "random") {
    by <- sample(c("rms", animals), 1)
  }

  switch(by, rms = rms, longcat = make_longcat(length), animal_fetch(by))
}

make_longcat <- function(length) {
  if (length > 0) {
    body <- paste(rep("    |    |\n", length), collapse = "")
    body <- gsub("\n$", "", body)
    sprintf(animal_fetch("longcat"), body)
  } else {
    animal_fetch("shortcat")
  }
}