if (FALSE) {
# first sign in user and get the 'refresh_token':
user <- sign_in(email = "user@gmail.com", password = "password")
refresh_token <- user$refreshToken
# exchange the refresh token:
response <- exchange_refresh_token(refresh_token = refresh_token)
response
}
Run the code above in your browser using DataLab