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