data-raw/infinite-monkeys-challenger.R

In coolbutuseless/emphatic: Exploratory Analysis of Tabular Data using Colour Highlighting

library(dplyr)
library(ggplot2)
library(emphatic)
library(scico)


text <- "mtcars %>%
  hl('red', rows = 1:5)"


monkey <- function(text) {
  chars <- strsplit(text, '')[[1]]

  delay <- min(0.04, 1/nchar(chars))
  pauses <- runif(1000, 0.005, delay)

  Sys.sleep(0.1)

  cat("\014")
  cat("\n>  ")

  for (i in seq_along(chars)) {
    cat("\010");
    cat(chars[i])
    if (i < length(chars) && chars[i+1] != '\n') cat("_")
    Sys.sleep(pauses[i])
  }
  Sys.sleep(0.1)

  cat("\010\010")
  cat("\n\n")

  print(eval(parse(text = text)))

  Sys.sleep(1.6)
}



codes <- c(
  "challenger",
  "challenger %>%
    arrange(desc(temp))",
  "challenger %>%
    arrange(desc(temp)) %>%
    hl(scale_color_gradient(low='pink', high='red'), cols = damage)",
  "challenger %>%
    arrange(desc(temp)) %>%
    hl(scale_color_gradient(low='pink', high='red'), cols = damage, scale_apply = erosion:date)",
  "challenger %>%
    arrange(desc(temp)) %>%
    hl(scale_color_gradient(low='#ffeeee', high='red'), cols = damage, scale_apply = erosion:date,
       rows = damage > 0)",
  "challenger %>%
    arrange(desc(temp)) %>%
    hl(scale_color_gradient(low='#ffeeee', high='red'), cols = damage, scale_apply = erosion:date,
       rows = damage > 0) %>%
    hl(scale_color_viridis_c(), cols = temp)"
)

# system.time({
cat("\014")
for (code in codes) {
  monkey(code)
}
# })


# ffmpeg -y -r 8 -i examples.mp4 examples-slow.mp4


# ffmpeg -y -i examples-slow.mp4 -filter_complex "fps=8,scale=640:-1:flags=lanczos[x];[x]split[x1][x2]; [x1]palettegen[p];[x2][p]paletteuse" examples.gif