add fillerama wrapper

R/say.r

@@ -145,6 +145,13 @@ say <- function(what="Hello world!", by="cat", type="message", length=18,
 
   if (what == "rms") {
     what <- rmsfact::rmsfact()
+  }  
+
+  if ( what %in% c("arresteddevelopment", "doctorwho", "dexter", "futurama", "holygrail", "simpsons", "starwars", "loremipsum")) {
+    check4jsonlite()
+    what <- 
+      jsonlite::fromJSON(
+        paste0('http://api.chrisvalleskey.com/fillerama/get.php?count=1&format=json&show=', what))$db$quote
   }
 
   switch(type,

README.Rmd

@@ -31,8 +31,9 @@ If you are familiar with `cowsay` on the cli, then you know what this is, but fo
 * Franz-Sebastian Krah
 * Lucy D'Agostino McGowan
 * Guangchuang Yu
+* Paolo Sonego
 
-That's right, it takes 12 people to make `cowsay` - it's that hard.
+That's right, it takes 13 people to make `cowsay` - it's that hard.
 
 ### Where to find ASCII animal art
 
@@ -246,7 +247,7 @@ say(fortune=59, by="clippy")
 ### Yoda
 
 ```{r}
-say("Unlearn you must what learned you have", by="yoda")
+say("starwars", by="yoda")
 ```
 
 ### Bats!