Trying to send POST request in R but didn't work

[garyzhubc]

Trying to send POST request in R but didn't work. I tried:

require(httr)

token_endpoint = 'https://icdaccessmanagement.who.int/connect/token'
client_id = '-------'
client_secret = '----'
scope = 'icdapi_access'
grant_type = 'client_credentials'

r <- POST(token_endpoint, add_headers('client_id'= client_id, 
                                            'client_secret'= client_secret, 
                                            'scope'= scope, 
                                            'grant_type'= grant_type))

with package httr following a Python version of this https://github.com/ICD-API/Python-samples/blob/master/sample.py

but I don't know where to find access_token in r

[MITEL-UNIUD]

Please, do not put real id and secret in examples. I edited your post.

[JosephSBoyle]

FWIW I can still view the secrets in the history of the post.