xml - 获取YouTube视频的名称

Question

我需要从链接中获取YouTube视频的名称。
通常，我可以对Wikipedia页面执行以下操作:

doc <- xmlTreeParse("http://en.wikipedia.org/wiki/Google", useInternalNodes=TRUE)
xpathSApply(doc,'//title',xmlValue)

但是以下内容不适用于youtube:

doc <- xmlTreeParse("https://www.youtube.com/watch?v=YuOBzWF0Aws", useInternalNodes=TRUE)

给出错误。

任何帮助都感激不尽。

Answer 1

XML库无法下载安全链接。您可以使用RCurl和getURL下载文件，然后使用XML库进行解析，或者在这种情况下要求提供非安全版本(http):

library(XML)
appURL <- "http://www.youtube.com/watch?v=YuOBzWF0Aws"
doc <- htmlParse(appURL)
sapply(doc['//*[@id="eow-title"]'], xmlGetAttr, name = "title")

> sapply(doc['//*[@id="eow-title"]'], xmlGetAttr, name = "title")
[1] "If Google was a Guy"