如何使用SSL在R中设置httr句柄

install.packages("httr")  # 安装httr包
library(httr)  # 加载httr包

handle <- handle("https://")  # 创建httr句柄

# 设置SSL选项
handle <- handle_setconfig(handle,
                           ssl_verifypeer = 1,  # 验证对等证书
                           ssl_verifyhost = 2,  # 验证主机名
                           ssl_certbundle = system.file("CurlSSL", "cacert.pem", package = "RCurl"))  # 设置根证书

response <- GET(url, handle = handle)  # 发送HTTPS GET请求