Skip to content

Commit 597d383

Browse files
authored
Merge pull request #4 from brandmaier/master
Integrated cowsay R-package
2 parents 7d6a812 + 83c41b1 commit 597d383

1 file changed

Lines changed: 7 additions & 2 deletions

File tree

Other/shakespeareanInsulter.R

Lines changed: 7 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -12,8 +12,13 @@ shakesInsult = function(){
1212

1313
w3 = c('apple-john','baggage','barnacle','bladder','boar-pig','bugbear','bum-bailey','canker-blossom','clack-dish','clotpole','coxcomb','codpiece','death-token','dewberry','flap-dragon','flax-wench','flirt-gill','foot-licker','fustilarian','giglet','gudgeon','haggard','harpy','hedge-pig','horn-beast','hugger-mugger','joithead','lewdster','lout','maggot-pie','malt-worm','mammet','measle','minnow','miscreant','moldwarp','mumble-news','nut-hook','pigeon-egg','pignut','puttock','pumpion','ratsbane','scut','skainsmate','strumpet','varlot','vassal','whey-face','wagtail')
1414

15-
cat('Your Shakespearean insult for the day is...', 'Thou', sample(w1, 1), sample(w2, 1), sample(w3, 1))
15+
return( paste( 'Thou', sample(w1, 1), sample(w2, 1), sample(w3, 1),collapse=" "))
1616
}
1717

18+
cat('Your Shakespearean insult for the day is...', shakesInsult(),"\n")
1819

19-
shakesInsult()
20+
#
21+
# alternatively, use the cowsay package, to let various animals insult you!
22+
#
23+
require(cowsay)
24+
say(what = shakesInsult(),by="random")

0 commit comments

Comments
 (0)