使用R查找Youtube视频时长

Question

有没有办法使用R查找Youtube视频的持续时间（以及可能的其他统计数据）？我有一个Youtube ID列表，我想计算持续时间而无需手动查找每个视频。

Answer 1

使用HTML源代码和一个小的正则表达式帮助：

library(RCurl)
library(stringi)

url <- "https://www.youtube.com/watch?v=NWHfY_lvKIQ"

# Getting HTML 
webpage <- RCurl::getURL(url)

# Extracting video length (in seconds)
stringi::stri_match_first_regex(webpage, "length_seconds\":\"(.*?)\",")[[2]]
#[1] "3118"