A Blinking Tidyverse Logo

Blinky-Verse.R

blinkyverse_logo <- function() {
  logo <- c(tidyverse::tidyverse_logo(unicode=FALSE))

  logoa <- gsub("*", "\u2b22", logo, fixed=TRUE)
  logoa <- gsub("o", "\u2b21", logoa, fixed=TRUE)

  logob <- gsub("o", "\u2b22", logo, fixed=TRUE)
  logob <- gsub("*", "\u2b21", logob, fixed=TRUE)
  logob <- gsub(".", "*", logob, fixed=TRUE)

  cat('\n', c(logoa, '\n\nCTRL+C to exit.', "\033[11A"), sep='\n')
  repeat{
    Sys.sleep(0.3)
    cat('\n', c(logob, "\033[8A\r"), sep='\n')
    Sys.sleep(0.3)
    cat('\n', c(logoa, "\033[8A\r"), sep='\n')
} }