关于Stack Exchange API OAuth及stackr库通用认证的代码实现问询

嘿，我来帮你搞定用stackr库对接Stack Exchange API的通用认证问题！

首先先确认下，你已经安装stackr库了吧？如果还没装，先跑这个命令：

install.packages("stackr")

接下来根据你的使用场景，有两种通用认证配置方式，直接在代码里加对应的配置就行：

1. 仅用API Key（适合访问公开数据） #

如果只是调用不需要用户权限的公开接口，比如查看公共问答、用户公开信息，只需要把你拿到的API Key传入stack_auth()函数：

library(stackr)

# 配置你的API Key
stack_auth(key = "你的API_KEY")

2. API Key + Access Token（适合需要用户授权的操作） #

要是你的应用需要访问用户私有数据（比如个人收藏、私信）或者执行写操作（比如提交回答、编辑内容），就得同时配置API Key和Access Token：

library(stackr)

# 同时配置API Key和Access Token
stack_auth(key = "你的API_KEY", access_token = "你的ACCESS_TOKEN")

小提醒（很重要！） #

别把你的凭证直接硬写在代码里，太不安全了！生产环境建议用环境变量来存储，比如：

# 从系统环境变量读取凭证
api_key <- Sys.getenv("STACKEXCHANGE_API_KEY")
access_token <- Sys.getenv("STACKEXCHANGE_ACCESS_TOKEN")
stack_auth(key = api_key, access_token = access_token)

配置完认证后，调用任何stackr的接口都会自动带上认证信息，比如你可以测试下：

# 获取当前授权用户的信息，验证认证是否生效
my_info <- stack_users(me = TRUE)
print(my_info)

内容的提问来源于stack exchange，提问作者Pozmanski