r - 在 R 代码中传递 pfx 证书或在 R 中将 pfx 证书转换为 pem

Question

因此，我调用的 API 要求我将 pfx 证书链接到我的浏览器或 Postman(如果我调用该 API)。我想以编程方式执行此操作。如果 R 中有代码让我在传递 post 请求时使用我现有的 pfx 证书，或者我可以使用一个函数将我现有的 pfx 证书转换为 pem 证书。请帮助我解决问题。

Answer 1

我遇到了同样的问题，然后这样解决了:

library(openssl)
library(httr)
library(usethis)

# set up openssl in .Renviron
usethis::edit_r_environ() #opens .Renviron file in Rstudio
# include this line into .Renviron file:
CURL_SSL_BACKEND="openssl"

# read your pfx certificate 
cert <- openssl::read_p12(file = ".../yourCertificate.pfx", password = "yourKey")

# convert pfx to cert and key pem files to use in httr calls
openssl::write_pem(cert$cert, "my_cert.pem")
openssl::write_pem(cert$key, "my_key.pem")

# send request
GET("https://...", config = config(sslcert =  "my_cert.pem", sslkey = "my_key.pem"), verbose())