Tuber 的循环或函数

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 添加发布日期？

非常感谢您！

贾尼斯

PS：在原来的ids列表中有些不工作，所以我在例子中放了一个不工作的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)
      })

Tuber 的循环或函数

Loop or Function for Tuber

youtube

r

rstudio

youtube-data-api