Вернуть список ссылок с веб-страницы в R

Question

Я пытаюсь написать функцию в r, которая при наличии адреса вернет список ссылок на этой веб-странице.

Например:

getLinks("http://prog21.dadgum.com/109.html")

Вернется:

"http://prog21.dadgum.com/prog21.css"
"http://prog21.dadgum.com/atom.xml"
"http://prog21.dadgum.com/index.html"
"http://prog21.dadgum.com/archives.html"
"http://prog21.dadgum.com/atom.xml"
"http://prog21.dadgum.com/56.html"
"http://prog21.dadgum.com/39.html"
"http://prog21.dadgum.com/109.html"
"http://prog21.dadgum.com/108.html"
"http://prog21.dadgum.com/107.html"
"http://prog21.dadgum.com/106.html"
"http://prog21.dadgum.com/105.html"
"http://prog21.dadgum.com/104.html"

Answer 1

Эта функция работает на других веб-страницах, но по какой-то причине не возвращает полные URL-адреса для рассматриваемой страницы.Мне интересно посмотреть, есть ли лучший способ сделать это.

getLinks <- function(URL) {
    require(XML)
    doc <- htmlParse(URL)
    out <- unlist(doc['//@href'])
    names(out) <- NULL
    out
}