R - readHTMLTable：无法加载外部实体

Question

我正在尝试关注如何在R上获取NHL数据的fellas博客 这是它的开始，这是我遇到麻烦的地方。

library(XML)
tables <- readHTMLTable("http://www.hockey-reference.com/leagues/NHL_2016_games.html")
unlist(lapply(tables, function(t) dim(t)[1]))

一旦我跑了，我就收到了错误

Error: failed to load external entity "http://www.hockey-reference.com/leagues/NHL_2016_games.html").

我已经尝试过使用httr / Rcurl的工作了，它一直有效，直到我得到他的教程，我说我需要输入

for (i in c(2010:2015)) {
readHTMLTable(paste0("http://www.hockey-reference.com/leagues/NHL_", i, 
    "_games.html"))
regular <- tables[["games"]]
playoff <- tables[["games_playoffs"]]
message(" Saving...", "\r", appendLF = FALSE)
write.csv(regular, file = paste0("./", i - 1, i, ".csv"))
write.csv(playoff, file = paste0("./", i - 1, i, "Playoffs.csv"))
Sys.sleep(20)

}

我试图在不同季节进行for循环，但显然我得到了原始错误，并且不知道如何使用httr / Rcurl等来绕过它。

任何帮助将不胜感激。