get_caller_identity() # check current identity
get_session_token() # get token but do not use
x <- get_session_token(use = TRUE) # use temp token
get_caller_identity() # check that token is in use
restore_credentials() # return to original credentials
get_caller_identity() # check identity, again
Run the code above in your browser using DataLab