httpsプロトコルでRのソースを読み込む方法

ソースコードが長い場合、githubで公開することがたまにある。
だがgithubはhttps。
Rは標準ではこのプロトコルをサポートしておらず、source("https://ほにゃらら")とするとエラーが出る。
仕方がないので、RCurlを使って落としてきた後、一時ファイルに書き出してそれを読み込むという手段を今使っている。
もっとシンプルな方法がありそうなのでご存じの方は教えてください。

library(RCurl)
txt <- getURL("https://github.com/dichika/R/raw/master/ggmap3.R", ssl.verifypeer = FALSE)
write(txt, smp <- tempfile()) #いったん一時ファイルに書き出している
source(smp)

20110524追記

テキストなのでevalすればいいだけでした。あああほや。

library(RCurl)
eval(parse(text = getURL("https://github.com/dichika/R/raw/master/ggmap3.R", ssl.verifypeer = FALSE)))