# NOT RUN {
# 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
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab