Как проверить подлинность с помощью Reddit RCurl

Question

Я пытался проверить подлинность с Reddit из R, используя RCurl на основе этого примера из Reddit's github:

curl -X POST -d 'grant_type=password&username=reddit_bot&password=snoo' --user 'p-jcoLKBynTLew:gko_LXELoV07ZBNUXrvWZfzE3aI' https://ssl.reddit.com/api/v1/access_token 

Я попытался преобразовать его в команду RCurl как так :

postForm("https://ssl.reddit.com/api/v1/access_token?grant_type=password", 
    username = "MyUserName", 
    password = "MyPassword", 
    .opts = list(userpwd = "MyClientid:MySecret") 
    ) 

Но я получаю сообщение об ошибке: Error: Unauthorized

я не уверен, что я делаю на самом деле с преобразованием локонов команды в RCurl. Спасибо за любую помощь, которую вы могли бы предоставить!

Answer 1

Попробуйте этот HTTR код:

library(httr) 

POST("https://ssl.reddit.com/api/v1/access_token", 
    body = list(
    grant_type = "password", 
    username = "MyUserName", 
    password = "MyPassword" 
), 
    encode = "form", 
    authenticate("p-jcoLKBynTLew", "gko_LXELoV07ZBNUXrvWZfzE3aI") 
)