## This example uses a test case from liboauth and the
## keys are already pre-signed. This is an example of
## one of the few times \code{needsVerifier} would be \code{FALSE}.
reqURL <- "http://term.ie/oauth/example/request_token.php"
accessURL <- "http://term.ie/oauth/example/access_token.php"
authURL <- "NORMALLY YOU NEED THIS"
cKey <- "key"
cSecret <- "secret"
testURL <- "http://term.ie/oauth/example/echo_api.php?method=foo bar"
credentials <- OAuthFactory$new(consumerKey=cKey,
consumerSecret=cSecret,
requestURL=reqURL,
accessURL=accessURL,
authURL=authURL,
needsVerifier=FALSE)
credentials$handshake()
## the GET isn't strictly necessary as that's the default
credentials$OAuthRequest(testURL, "GET")Run the code above in your browser using DataLab