Question

我正在尝试获取每个Youtube视频ID的确切发布日期。

install.packages("tuber")

library(tuber)

yt_oauth("", "") # your personal Youtube API access comes here

id<-c("F8wqmh3KybI", "2Llw-utG_mM", "F8wqmh3Kyb")

df<-as.data.frame(id)

stats <- get_video_details(video_id="F8wqmh3KybI")

这是获取一个视频的统计信息的命令。由于我有几百个ID，我如何创建一个函数，为每个id添加发布日期？

非常感谢你！

Jannis

PS：在原始的ID列表中，有些不起作用，所以我在示例中添加了一个不起作用的id。该功能应该能够解释这一点。

Answer 1

我想你可以带来类似的东西：

install.packages("tuber")

library(tuber)

yt_oauth("", "") # your personal Youtube API access comes here

id<-c("F8wqmh3KybI", "2Llw-utG_mM", "F8wqmh3Kyb")

stats <- sapply(id, function(video_id){
        tryCatch(
            stats <- get_video_details(video_id=video_id)$publishedAt,
            error = function(cond){stats <- "Wrong id"})
        c(video_id, stats)
      })

块茎的循环或功能

1 个答案: