if (FALSE) {
# replace video id references with actors and add video id, title, description and plublish time
# to an actor network
actorNetwork <- collectData %>% Create("actor") %>% AddVideoData(youtubeAuth)
# only replace video id references with actors that published videos in network
actorNetwork <- collectData %>% Create("actor") %>% AddVideoData(youtubeAuth, actorSubOnly = TRUE)
# network
# actorNetwork$nodes
# actorNetwork$edges
# dataframe of downloaded video data
# actorNetwork$videos
}
Run the code above in your browser using DataLab