asciicast: Create 'Ascii' Screen Casts from R Scripts

is_rstudio <- function() {
  "rstudioapi" %in% loadedNamespaces() && rstudioapi::isAvailable()
}

view_image_in_rstudio <- function(path) {
  html <- tempfile("asciicast-preview-", fileext = ".html")
  img <- paste0(
    tempfile("asciicast-preview-", fileext = ""),
    file_ext(path)
  )
  file.copy(path, img)

  cat(
    file = html,
    sprintf(
      "<html><body><img src=\"%s\" width=\"100%%\"></body></html>",
      basename(img)
    )
  )

  rstudioapi::viewer(html)
}