R/getAccessToken.R

In ChristopherLucas/translateR: Bindings for the Google and Microsoft Translation APIs

getAccessToken <-
function(microsoft.api.key){
  tokenUrl = paste("https://api.cognitive.microsoft.com/sts/v1.0/issueToken?Subscription-Key=", microsoft.api.key , sep="")
  return(
    cleanFun(
      POST(tokenUrl, body="")
    )
  )
  
    
}