Skip to content

Instantly share code, notes, and snippets.

@vankesteren

vankesteren/sm.R

Last active June 11, 2018 08:03
Show Gist options

  • Select an option

    Learn more about clone URLs
  • Save vankesteren/24863399bcc4d42041a3ea9f0a1de820 to your computer and use it in GitHub Desktop.

Select an option

Learn more about clone URLs
Save vankesteren/24863399bcc4d42041a3ea9f0a1de820 to your computer and use it in GitHub Desktop.
Download ZIP
startup message
Raw
sm.R
link <- "https://rawgit.com/vankesteren/4ee77beeccd23e8c09206f9652cbba58/raw/message.txt"
o <- capture.output(lns <- try(suppressWarnings(readLines(link))), type = "m")
if (!inherits(lns, "try-error") && rstudioapi::isAvailable()) {
rstudioapi::showDialog(lns[1], paste(lns[-1], collapse = "\n"),
"https://youtu.be/dQw4w9WgXcQ")
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment