Nothing
#' Playlist Videos List
#'
#' @description
#' Returns all videos in playlist
#'
#' @param playlistId Required. String. Id of YouTube playlist.
#' @param ... Addt. arguments passed to \code{analytics_request}
#'
#' @return data.frame
#' @export
#'
#' @examples
#' \dontrun{
#' playlist_videos(playlistId = "PL2MI040U_GXq1L5JUxNOulWCyXn-7QyZK")
#' }
playlist_videos <- function(playlistId = NULL, ...) {
results <- data.frame()
pb <- prog_bar(length(playlistId))
for(i in 1:length(playlistId)) {
pb$tick()
temp <- data_playlistItem_request(part = "contentDetails",
playlistId = playlistId[i],
maxResults = 51, ...)
results <- dplyr::bind_rows(results, error_checking(temp, playlistId[i], "playlist"))
}
return(results)
}
#' Channel Videos List
#'
#' @description
#' Returns all videos in channel. Note: As of July 2023, the YouTube Data API
#' fails to return ALL videos on a channel by getting all videos from the "uploads" playlist
#' for large YouTube channels. As a result this function's work-around is to pull
#' all additional playlists from the channel, pull all video lists from all playlists,
#' and append the result to the uploads return.
#'
#' @param token YouTube token
#'
#' @return data.frame
#' @export
#'
#' @examples
#' \dontrun{
#' channel_videos()
#' }
channel_videos <- function(token = getOption("YouTube_Token")) {
channelData <- data_channel_request(part = "contentDetails", mine="true", token = token)
uploads <- channelData$items$contentDetails$relatedPlaylists$uploads
channelPlaylists <- channel_playlists(token = token)
allPlaylists <- unique(c(uploads, channelPlaylists$id))
allVideos <- data.frame()
for(i in allPlaylists) {
temp <- data_playlistItem_request(part = "contentDetails",
playlistId = i, maxResults = 51, token = token)
allVideos <- dplyr::bind_rows(allVideos, temp)
}
return(dplyr::distinct(allVideos))
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.