Get specified number of cat facts from the Cat Facts API (http://catfacts-api.appspot.com/)

catfacts.R

library("RCurl")
library("RJSONIO")

catfacts <- function(number=1){
    if(is.null(number) || is.na(as.numeric(number)) || number < 1)
        stop("'number' must be a positive integer")
    fromJSON(getURL(paste('http://catfacts-api.appspot.com/api/facts?number=', number, sep='')))$facts
}


# Some examples
catfacts()
catfacts(5)

# ASCII cat saying cat facts
library("cowsay")
say(catfacts(),'cat')

 ----- 
 Cats sleep 16 to 18 hours per day. When cats are asleep, they are still alert to incoming stimuli. If you poke the tail of a sleeping cat, it will respond accordingly. 
 ------ 
    \   
     \  
               \`*-.
                 )  _`-.                 
                .  : `. .                
                : _   '                 
                ; *` _.   `*-._          
                `-.-'          `-.       
                  ;       `       `.     
                  :.       .       \
                  .\  .   :   .-'   .   
                  '  `+.;  ;  '      :   
                  :  '  |    ;       ;-. 
                  ; '   : :`-:     _.`* ;
               .*' /  .*' ; .*`- +'  `*' 
               `*-*   `*-*  `*-*'        

This is awesome - we must have this in cowsay. Pull request?

Hi, the API seems to be unavailable. This is the error message:
"Python 2.5 is no longer available. Please refer to https://goo.gl/aESk5L for more information."
I can't find any info about the owner of the API so can't "complain" to them directly. I hope you have more info...
Cheers,
Lucas