if (FALSE) {
# twitter authentication using developer app API keys
myDevKeys <- list(appName = "My App", apiKey = "xxxxxxxxxxxx",
apiSecret = "xxxxxxxxxxxx", accessToken = "xxxxxxxxxxxx",
accessTokenSecret = "xxxxxxxxxxxx")
twitterAuth <- Authenticate("twitter", appName = myDevKeys$appName,
apiKey = myDevKeys$apiKey, apiSecret = myDevKeys$apiSecret, accessToken = myDevKeys$accessToken,
accessTokenSecret = myDevKeys$accessTokenSecret)
# twitter authentication via authorization of an app to their user account
# requires the apps consumer API keys
# apiKey and apiSecret parameters are equivalent to the apps consumer key and secret
# will open a web browser to twitter prompting the user to log in and authorize the app
twitterAuth <- Authenticate("twitter", appName = "An App",
apiKey = "xxxxxxxxxxxx", apiSecret = "xxxxxxxxxxxx"
)
}
Run the code above in your browser using DataLab