## Not run: ------------------------------------
# ## Use your own values for myAppID and myAppSecret
# myAppID <- "123456789098765"
# myAppSecret <- "abc123abc123abc123abc123abc123ab"
#
# # Authenticate with the Instagram API using `AuthenticateWithInstagramAPI`
# instagram_oauth_token <- AuthenticateWithInstagramAPI(appID=app_id, appSecret=app_secret,
# useCachedToken=TRUE)
#
# # EXAMPLE 1
#
# # Run the `CollectDataInstagram` function and store the results in variable `myInstagramData`
# # (searching by hashtag)
# myInstagramData <- CollectDataInstagram(tag="obama", distance=5000, n=100, folder=NULL,
# verbose=TRUE, waitForRateLimit=TRUE)
#
# # Create a 'bimodal' network using \code{CreateBimodalNetwork}
# g_bimodal_instagram_obama <- CreateBimodalNetwork(myInstagramData,writeToFile=F)
#
# # View descriptive information about the bimodal network
# g_bimodal_instagram_obama
#
# # EXAMPLE 2
#
# # Run the `CollectDataInstagram` function and store the results in variable `myInstagramData`
# # (searching by coordinates in Brisbane (Australia) with a radius of 5km)
# myInstagramData <- CollectDataInstagram(lat=-27.4701, lng=153.0220, distance=5000, n=100,
# folder=NULL, verbose=TRUE, waitForRateLimit=TRUE)
#
# # Create a 'bimodal' network using \code{CreateBimodalNetwork}
# g_bimodal_instagram_brisbane <- CreateBimodalNetwork(myInstagramData,writeToFile=F)
#
# # View descriptive information about the bimodal network
# g_bimodal_instagram_brisbane
## ---------------------------------------------
Run the code above in your browser using DataLab