ateucher · August 29, 2015 14:20
diff --git a/cowsay_errors.R b/cowsay_errors.R
 ## Makes a random animal deliver the error message
 ## Fun to put in a .Rprofile :)
 # devtools::install_github("sckott/cowsay")
 library("cowsay", quietly = TRUE)
 options(error = function() {
  animal <- say("", by = "random", type = "string")
  ## remove the top "-------" message delimiter from the cowsay character
  message(strsplit(animal, "\n\\s*-{5,20}\\s*\n\\s*\n")[[1]][2])
 })
	## Makes a random animal deliver the error message
	## Fun to put in a .Rprofile :)
	# devtools::install_github("sckott/cowsay")
	library("cowsay", quietly = TRUE)
	options(error = function() {
	animal <- say("", by = "random", type = "string")
	## remove the top "-------" message delimiter from the cowsay character
	message(strsplit(animal, "\n\\s-{5,20}\\s\n\\s*\n")[[1]][2])
	})