Why is source_gist function in R devtools package not working?

Question

I run this:

install.packages('devtools')
library('devtools')
source_gist("https://gist.github.com/hadley/6872663")

I get this:

Error: client error: (403) Forbidden

Why?

Answer 1

I think it is a bug( some regular expression problem), As a workaround :

source_url("https://gist.github.com/hadley/6872663/raw/hi.r")

SHA-1 hash of file is 54f1db27e60bb7e0486d785604909b49e8fef9f9
[1] "Hi from github :)"