无法在R中打开与GitHub的HTTPS连接

Question

我试图从github repo中获取R中的一些数据，但连接失败。

remote.file = function(URL) {
    temporaryFile <- tempfile()
    download.file(URL,destfile=temporaryFile, method="curl")
    return( temporaryFile )
}

URL = "https://raw.githubusercontent.com/sidooms/MovieTweetings/master/latest/ratings.dat"

Ratings = read.table( remote.file(URL), sep = ":", header=FALSE ),c(1,3,5,7)]

我收到以下错误：