r - 块茎的循环或功能

我正在尝试获取每个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:在原始ID列表中，有些无效，因此我在示例中输入了一个无效的ID。该功能应该能够解决这一问题。

最佳答案

我想您可以提供类似以下内容的东西:

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)
      })

关于r - 块茎的循环或功能，我们在Stack Overflow上找到一个类似的问题：https://stackoverflow.com/questions/43652819/