## Not run: ------------------------------------
# ## This example shows how to collect YouTube comments data and create an actor network
#
# # Use your own Google Developer API Key here:
# myApiKey <- "1234567890"
#
# # Authenticate with the Google API
# apiKeyYoutube <- AuthenticateWithYoutubeAPI(apiKeyYoutube=myApiKey)
#
# # Generate a vector of YouTube video IDs to collect data from
# # (or use the function `GetYoutubeVideoIDs` to automatically
# # generate from a plain text file of video URLs)
# videoIDs <- c("W2GZFeYGU3s","mL27TAJGlWc")
#
# # Collect the data using function `CollectDataYoutube`
# myYoutubeData <- CollectDataYoutube(videoIDs,apiKeyYoutube,writeToFile=FALSE)
#
# # Create an 'actor' network using the function `CreateActorNetwork`
# g_actor_youtube <- CreateActorNetwork(myYoutubeData)
#
# # Description of actor network
# g_actor_youtube
## ---------------------------------------------
Run the code above in your browser using DataLab