r-添加P12证书获取电话

Question

我在Postman中成功打电话，在那里我访问了带有.p12证书的API。在Postman中，证书存储在全球设置中。

现在，我试图将此邮递员转换为R-Code，在那里我花了几个小时使用httr和rcurl软件包。不幸的是，如果没有结果，我的呼叫结果为403（没有有效的证书）。

我的步骤：

首先，我为呼叫定义了标题，

headers = c(
  'Content-Type' = 'application/pdf',
  'Authorization' = 'Basic ...'
) 

#Set URL
url = "https://myurlwithcertificate.eu"

下一步我链接到.p12证书

#Cert info
pkcs12_name <- "certi.p12"
pkcs12_pwd <- "certificatePassword"

我尝试执行呼叫：

res <- httr::GET(url = url, 
             add_headers(headers),
             config = config(sslcert=pkcs12_name,
                             sslkey=pkcs12_pwd))

引导：无法加载PEM客户端证书< /代码>

接下来，我还尝试首先使用read_p12函数打开证书。

#Open certificate
cert <- read_p12(pkcs12_name,pkcs12_pwd)

我成功地打开了.p12证书。但是，我没有设法将证书和钥匙添加到API中。

res <- httr::GET(url = url, 
             add_headers(headers),
             config = config(sslcert=cert$cert,
                             sslkey=cert$key))

作为测试，我在Python成功创建了这个电话。但是，我也想在R. python脚本中实现结果

：

import requests
from requests_pkcs12 import get

url = "https://myurlwithcertificate.eu"

payload={}
headers = {
  'Content-Type': 'application/pdf',
  'Authorization': 'Basic ...'
}

response = get(url, headers = headers, data=payload, pkcs12_filename='certi.p12', pkcs12_password='certificatePassword')



response = requests.request("GET", url, headers=headers, data=payload)

print(response.text)

我感觉以某种方式在我的R-Script中我没有成功地在呼叫，URL和标题中添加证书很好。如果您有任何想法，我可以在电话中设法添加.p12证书，请让我知道:)