Bad Day

gistfile1.txt

tell_it_like_it_is <- function(){
	message <- paste0(
	    sprintf(cow, sample(mess, 1)),
        "\n\n\n\n"
	)
	cat(message)
}


cow <- "\n ---------------- \n%s! \n ----------------- \n    \\   ^__^ \n     \\  (oo)\\ ________ \n        (__)\\         )\\ /\\ \n             ||------w|\n             ||      ||"

mess <- 'This is perhaps some \nof the most fucked up\nshit I\'ve ever seen'

tell_it_like_it_is()