在R中使用OAuth2访问Reddit API :如何请求和更新令牌

install.packages("httr")
library(httr)

client_id <- "YOUR_CLIENT_ID"
client_secret <- "YOUR_CLIENT_SECRET"
redirect_uri <- "http://localhost/"

auth_url <- "https://www.reddit.com/api/v1/authorize"
scope <- "identity"

auth_url <- modify_url(auth_url, 
                       query = list(
                         client_id = client_id,
                         response_type = "code",
                         state = "random_string",
                         redirect_uri = redirect_uri,
                         scope = scope
                       ))

get_access_token <- function(client_id, client_secret, redirect_uri, code) {
  token_url <- "https://www.reddit.com/api/v1/access_token"
  response <- POST(token_url,
                   add_headers(
                     Authorization = paste0("Basic ", 
                                           base64_encode(paste0(client_id, ":", client_secret)))
                   ),
                   body = list(
                     grant_type = "authorization_code",
                     code = code,
                     redirect_uri = redirect_uri
                   ),
                   encode = "form",
                   verbose())
  content(response)$access_token
}

code <- readline("Enter the authorization code: ")
access_token <- get_access_token(client_id, client_secret, redirect_uri, code)

user_info <- GET("https://oauth.reddit.com/api/v1/me",
                 add_headers(Authorization = paste0("Bearer ", access_token)))
content(user_info)

subreddit <- "programming"
hot_posts <- GET(paste0("https://oauth.reddit.com/r/", subreddit, "/hot"),
                 add_headers(Authorization = paste0("Bearer ", access_token)))
content(hot_posts)