if (FALSE) {
# Get stats for a single channel - displays console output
stats <- get_channel_stats("UCT5Cx1l4IS3wHkJXNyuj4TA")
# Get stats for multiple channels - automatically batched
channel_ids <- c("UCT5Cx1l4IS3wHkJXNyuj4TA", "UCfK2eFCRQ64Gqfrpbrcj31w")
stats <- get_channel_stats(channel_ids)
# Get as data frame
df <- get_channel_stats(channel_ids, simplify = TRUE)
# Get your own channel stats
my_stats <- get_channel_stats(mine = TRUE)
# Get additional parts
detailed <- get_channel_stats(channel_ids,
part = c("statistics", "snippet", "brandingSettings"))
}
Run the code above in your browser using DataLab