cowsay
What is this?
If you are familiar with cowsay
on the cli, then you know what this is, but for R. If not, read below. Why? Why not?
Contributors
- Scott Chamberlain
- Tyler Rinker
- Thomas Leeper
- Noam Ross
- Rich FitzJohn
- Kiyoko Gotanda
- Carson Sievert
- Andy Teucher
- Karl Broman
- Franz-Sebastian Krah
- Lucy D'Agostino McGowan
- Guangchuang Yu
- Paolo Sonego
- Philipp Boersch-Supan
- Andreas Brandmaier
That's right, it takes 15 people to make cowsay
- it's that hard.
Where to find ASCII animal art
Sources to look in:
- http://www.chris.com/ascii/ - again, this person only collects them - no mention of license, permissions, etc.
- http://www.asciiworld.com/
Permissions
In the ascii art mailing list https://groups.google.com/forum/#!forum/alt.ascii-art they say:
As for posting other people's ASCII art,
after a discussion in news:alt.ascii-art _ ___
the following rules were agreed upon: #_~`--'__ `===-,
1. If an ASCII ART picture has initials `.`. `#.,//
on it, leave them on when posting it ,_\_\ ## #\
2. If an ASCII ART picture doesn't have `__.__ `####\
initials on it, mention that you ~~\ ,###'~
didn't draw it when posting it. \##'
3. If somebody posts a picture without [nosig]
initials and you have an original copy
with initials on, feel free to re-post the original version.
* The re-post ought not to be taken personally, as we all
know that ASCII art often loses proper credits.
Responses to the re-post are not necessary.
One contributor, name of Krogg, suggested the following:
1.) Ultra polite:...ya make yer own ascii and use it.
2.) Very polite:...Ya contact the author and ask if ya
can use it...
3.) polite:...Ya use it but you keep the Credits
in there like they should be.
4.) rude:...Ya use it and strip credits.
5.) Very rude:...Ya use it and claim that it Is
_Your_ very own creation...
So, let's go with this rule: Let's include found (on the web) ascii art in this pkg, include signature if there, and if no signature, put in a [nosig]
(see above).
Quick watch start
Asciicast: https://asciinema.org/a/7745
Install
From CRAN
install.packages("cowsay")
Dev version
install.packages("devtools")
devtools::install_github("sckott/cowsay")
library("cowsay")
The animals
sort(names(animals))
#> [1] "ant" "anxiouscat" "bat" "bat2"
#> [5] "behindcat" "bigcat" "buffalo" "cat"
#> [9] "chicken" "clippy" "cow" "daemon"
#> [13] "duck" "duckling" "egret" "endlesshorse"
#> [17] "facecat" "fish" "frog" "ghost"
#> [21] "grumpycat" "hypnotoad" "longcat" "longtailcat"
#> [25] "monkey" "mushroom" "owl" "pig"
#> [29] "poop" "pumpkin" "rabbit" "shark"
#> [33] "shortcat" "signbunny" "smallcat" "snowman"
#> [37] "spider" "stretchycat" "trilobite" "turkey"
#> [41] "yoda"
Say Something
say('time')
#>
#> --------------
#> 2018-05-15 10:34:25
#> --------------
#> \
#> \
#> \
#> |\___/|
#> ==) ^Y^ (==
#> \ ^ /
#> )=*=(
#> / \
#> | |
#> /| | | |\
#> \| | |_|/\
#> jgs //_// ___/
#> \_)
#>
say("ain't that some shit", "chicken")
#>
#>
#> -----
#> ain't that some shit
#> ------
#> \
#> \
#> _
#> _/ }
#> `>' \
#> `| \
#> | /'-. .-.
#> \' ';`--' .'
#> \'. `'-./
#> '.`-..-;`
#> `;-..'
#> _| _|
#> /` /` [nosig]
#>
say("boo!", "ghost")
#>
#>
#> -----
#> boo!
#> ------
#> \
#> \
#> .-.
#> (o o)
#> | O \
#> \ \
#> `~~~' [nosig]
#>
say("I love hooo you are!", "owl")
#>
#> -----
#> I love hooo you are!
#> ------
#> \
#> \
#> \
#> /\___/\
#> {o}{o}|
#> \ v /|
#> | \ \
#> \___/_/ [ab]
#> | |
Vary type of output, default calls message()
say("hell no!")
#>
#> --------------
#> hell no!
#> --------------
#> \
#> \
#> \
#> |\___/|
#> ==) ^Y^ (==
#> \ ^ /
#> )=*=(
#> / \
#> | |
#> /| | | |\
#> \| | |_|/\
#> jgs //_// ___/
#> \_)
#>
say("hell no!", type="warning")
#> Warning in say("hell no!", type = "warning"):
#> --------------
#> hell no!
#> --------------
#> \
#> \
#> \
#> |\___/|
#> ==) ^Y^ (==
#> \ ^ /
#> )=*=(
#> / \
#> | |
#> /| | | |\
#> \| | |_|/\
#> jgs //_// ___/
#> \_)
#>
say("hell no!", type="string")
#> [1] "\n -------------- \nhell no! \n --------------\n \\\n \\\n \\\n |\\___/|\n ==) ^Y^ (==\n \\ ^ /\n )=*=(\n / \\\n | |\n /| | | |\\\n \\| | |_|/\\\n jgs //_// ___/\n \\_)\n "
Catfacts!!!!
From the catfacts API at https://catfact.ninja
say("catfact", "cat")
#> --------------
#> When a domestic cat goes after mice, about 1 pounce in 3 results in a catch.
#> --------------
#> \
#> \
#> \
#> |\___/|
#> ==) ^Y^ (==
#> \ ^ /
#> )=*=(
#> / \
#> | |
#> /| | | |\
#> \| | |_|/\
#> jgs //_// ___/
#> \_)
Long cat
From the a Boing Boing tweet on 2014-05-10
say("it's caturday", "longcat")
#>
#>
#> -----
#> it's caturday
#> ------
#> \
#> \
#> .ハ,,ハ
#> ( ゚ω゚)
#> |つ つ
#> | |
#> | |
#> | |
#> | |
#> | |
#> | |
#> | |
#> | |
#> | |
#> | |
#> | |
#> | |
#> | |
#> | |
#> | |
#> | |
#> | |
#> | |
#> U " U
#> [BoingBoing]
#>
Grumpy cat
say('NO!', by='grumpycat')
#>
#>
#> --------------
#> NO!
#> --------------
#> \
#> \
#> \
#> ハ _ ハ
#> ಠ X ಠ
#>
say('WOKE UP TODAY, IT WAS TERRIBLE', by='grumpycat')
#>
#>
#> --------------
#> WOKE UP TODAY, IT WAS TERRIBLE
#> --------------
#> \
#> \
#> \
#> ハ _ ハ
#> ಠ X ಠ
#>
say('I HAD FUN ONCE, IT WAS AWFUL', by='grumpycat')
#>
#>
#> --------------
#> I HAD FUN ONCE, IT WAS AWFUL
#> --------------
#> \
#> \
#> \
#> ハ _ ハ
#> ಠ X ಠ
#>
Bunny Holding a sign
say(by='signbunny')
#>
#> --------------
#> Hello world!
#> --------------
#> (\__/) ||
#> (•ㅅ•) ||
#> / づ
#> [nosig]
#>
Fish
say(by='fish')
#>
#>
#> -----
#> Hello world!
#> ------
#> \
#> \
#> ><((((º> ><((((º> ><((((º> ><((((º> ><((((º>
#> Kiyoko Gotanda
#>
R fortunes
say('fortune','cat')
#>
#> --------------
#> So apparently you wish to report as a bug the fact that R 1.8.0 is different from R 1.4.0.
#> Douglas Bates
#> R-devel
#> October 2003
#> --------------
#> \
#> \
#> \
#> |\___/|
#> ==) ^Y^ (==
#> \ ^ /
#> )=*=(
#> / \
#> | |
#> /| | | |\
#> \| | |_|/\
#> jgs //_// ___/
#> \_)
#>
You can also pick a particular fortune by number or regex search - if the fortune
parameter is not NULL
you don't have pass anything to the what
parameter (the 1st parameter)
say(fortune=100)
#>
#> --------------
#> I'm not sure I'd trust any computer recommendation from 1976, no matter how famous the authors are.
#> Peter Dalgaard
#> after Samuel Edward Kemp cited a recommendation about nonlinear least squares computer programs from 'Box-Jenkins, 1976'
#> R-help
#> January 2005
#> --------------
#> \
#> \
#> \
#> |\___/|
#> ==) ^Y^ (==
#> \ ^ /
#> )=*=(
#> / \
#> | |
#> /| | | |\
#> \| | |_|/\
#> jgs //_// ___/
#> \_)
#>
say(fortune='whatever')
#>
#> --------------
#> Tom Backer Johnsen: I have just started looking at R, and are getting more and more irritated at myself for not having done that before. However, one of the things I have not found in the documentation is some way of preparing output from R for convenient formatting into something like MS Word.
#> Barry Rowlingson: Well whatever you do, don't start looking at LaTeX, because that will get you even more irritated at yourself for not having done it before.
#> Tom Backer Johnsen and Barry Rowlingson
#> R-help
#> February 2006
#> --------------
#> \
#> \
#> \
#> |\___/|
#> ==) ^Y^ (==
#> \ ^ /
#> )=*=(
#> / \
#> | |
#> /| | | |\
#> \| | |_|/\
#> jgs //_// ___/
#> \_)
#>
Trilobite
say("Hi there :)", by='trilobite')
#>
#>
#> --------------
#> Hi there :)
#> --------------
#> \
#> \
#> \
#> _____
#> .'` ,-. `'.
#> / ([ ]) \
#> /.-""`(`)`""-.\
#> <'```(.)```'>
#> <'```(.)```'>
#> <'``(.)``'>
#> sk <``\_/``>
#> `'---'`
#>
Shark
say('Q: What do you call a solitary shark\nA: A lone shark', by='shark')
#>
#>
#> --------------
#> Q: What do you call a solitary shark
#> A: A lone shark
#> --------------
#> \
#> \
#> \
#> /""-._
#> . '-,
#> : '',
#> ; * '.
#> ' * () '.
#> \ \
#> \ _.---.._ '.
#> : .' _.--''-'' \ ,'
#> .._ '/.' . ;
#> ; `-. , \'
#> ; `, ; ._\
#> ; \ _,-' ''--._
#> : \_,-' '-._
#> \ ,-' . '-._
#> .' __.-''; \...,__ '.
#> .' _,-' \ \ ''--.,__ '\
#> / _,--' ; \ ; \^.}
#> ;_,-' ) \ )\ ) ;
#> / \/ \_.,-' ;
#> / ;
#> ,-' _,-'''-. ,-., ; PFA
#> ,-' _.-' \ / |/'-._...--'
#> :--`` )/
#> '
#>
Buffalo
say('Q: What do you call a single buffalo?\nA: A buffalonely', by='buffalo')
#>
#>
#> --------------
#> Q: What do you call a single buffalo?
#> A: A buffalonely
#> --------------
#> \
#> \
#> \
#> _.-````'-,_
#> _,.,_ ,-'` `'-.,_
#> /) ( '``-.
#> (( ) ) `\
#> \) (_/ )\
#> | /) ' ,' / \
#> `\ ^' ' ( / ))
#> | _/\ , / ,,`\ ( "`
#> \Y, | \ \ | ````| / \_ \
#> `)_/ \ \ ) ( > ( >
#> \( \( |/ |/
#> mic & dwb /_(/_( /_( /_(
#>
Clippy
say(fortune=59, by="clippy")
#>
#>
#> -----
#> Let's not kid ourselves: the most widely used piece of software for statistics is Excel.
#> Brian D. Ripley
#> 'Statistical Methods Need Software: A View of Statistical Computing'
#> Opening lecture RSS 2002, Plymouth
#> September 2002
#> ------
#> \
#> \
#> __
#> / \
#> | |
#> @ @
#> || ||
#> || ||
#> |\_/|
#> \___/ GB
Yoda
say("starwars", by = "yoda")
Bats!
say("hi, i'm a bat", by="bat")
#>
#>
#> -------------
#> hi, i'm a bat
#> --------------
#> \
#> \
#> \
#> __.--'\ \.__./ /'--.__
#> _.-' '.__.' '.__.' '-._
#> .' '.
#> / \
#> | |
#> | |
#> \ .---. .---. /
#> '._ .' '.''. .''.' '. _.'
#> '-./ \ / \.-'
#> ''mrf
See also bat2
Monkey!
say("fortune", by = "monkey")
#>
#>
#> -------------
#> My best advice regarding R^2 statistics with nonlinear models is, as Nancy Reagan suggested, "Just say no.".
#> Douglas Bates
#> R-help
#> August 2000
#> --------------
#> \
#> \
#> \
#>
#> .="=.
#> _/.-.-.\_ _
#> ( ( o o ) ) ))
#> |/ " \| //
#> \'---'/ //
#> jgs /`"""`\\ ((
#> / /_,_\ \\ \\
#> \_\_'__/ \ ))
#> /` /`~\ |//
#> / / \ /
#> ,--`,--'\/\ /
#> '-- "--' '--'
Daemon!
say("fortune", by = "daemon")
#>
#> -----
#> For recursive objects, search for recursive objects.
#> Barry Rowlingson
#> in a thread about "Recursive objects" and how to search for former discussions about the topic
#> R-devel
#> May 2011
#> ------
#> \
#> \
#> \
#> , ,
#> /( )`
#> \ \___ / |
#> /- _ `-/ '
#> (/\/ \ \ /\
#> / / | `
#> O O ) / |
#> `-^--'`< '
#> (_.) _ ) /
#> `.___/` /
#> `-----' /
#> <----. __ / __ \
#> <----|====O)))==) \) /====
#> <----' `--' `.__,' \
#> | |
#> \ /
#> ______( (_ / \______
#> ,' ,-----' | \
#> `--{__________) \/ [nosig]
Egret
say("je ne regrette rien", by = "egret")
#>
#> -----
#> je ne regrette rien
#> ------
#> \
#> \
#> \
#> \ _,
#> -==<' `
#> ) /
#> / (_.
#> | ,-,`\
#> \\ \ \
#> `\, \ \
#> ||\ \`|,
#> jgs _|| `=`-'
#> ~~`~`
See also bat2
Endless horse
endless_horse()
## -----
## Hello world!
## ------
## \
## \
## \
## ,
## _,,)\.~,,._
## (()` ``)\))),,_
## | \ ''((\)))),,_ ____
## |6` | ''((\())) "-.____.-" `-.-,
## | .'\ ''))))' \)))
## | | `. '' ((((
## \, _) \/ |))))
## `' | (((((
## \ | ))))))
## `| | ,\ /((((((
## | / `-.______.< \ | )))))
## | | / `. \ \ ((((
## | / \ | `.\ | (((
## \ | | | )| | ))
## | | | | || | ' [endless.horse]
## | | | | || |
##
## | | | | || |
## | | | | || |
## | | | | || |
## | | | | || |
## | | | | || |
## | | | | || |
## | | | | || |
## | | | | || |
## | | | | || |
## | | | | || |
Using pipes
library("magrittr")
"I HAD FUN ONCE, IT WAS AWFUL" %>% say('grumpycat')
#>
#>
#> --------------
#> I HAD FUN ONCE, IT WAS AWFUL
#> --------------
#> \
#> \
#> \
#> ハ _ ハ
#> ಠ X ಠ
#>
I just want the animals!
Okay, hold your endless horses. Just use the exported vector animals
, and you can select the animal you want by name.
animals['clippy']
#> clippy
#> "\n\n ----- \n%s \n ------ \n \\ \n \\\n __\n / \\\n | |\n @ @\n || ||\n || ||\n |\\_/|\n \\___/ GB\n"
Meta
- License: MIT
- Please note that this project is released with a Contributor Code of Conduct. By participating in this project you agree to abide by its terms.