使用R中的httr通过SSL获取网站内容

Question

我正在尝试使用R中的HTTP POST方法从我的服务器获取JSON数组。

我同时使用试图POST从功能httr和getURL从功能RCurl但都返回错误。

cafile <- system.file("CurlSSL", "cacert.pem", package = "RCurl")
url    <- "https://example.com/query/getData.php"

POST(url,body=NULL)
POST(url,body=NULL,config(cainfo=cafile))

getURL(url)
getURL(url,cainfo=cafile)

POST函数给出的错误是（对于两个调用）：

Error in curl::curl_fetch_memory(url, handle = handle) : 
  SSL peer certificate or SSH remote key was not OK

getURL函数给出的错误是（没有config(cainfo=cafile) ）：

* Hostname was NOT found in DNS cache
*   Trying 162.xxx.xxx.xxx...
* connect to 162.xxx.xxx.xxx port 443 failed: Connection refused
*   Trying 130.yyy.yyy.yyy...
* Connected to example.com (130.yyy.yyy.yyy) port 443 (#0)
* found 175 certificates in /etc/ssl/certs/ca-certificates.crt
* gnutls_handshake() warning: The server name sent was not recognized
* failed to get server cert
* Closing connection 0
Error in function (type, msg, asError = TRUE)  : 
  gnutls_handshake() warning: The server name sent was not recognized

因为跑步，我怀疑这与R有关：

curl 'https://example.com/query/getData.php'

从命令行返回预期的结果。

服务器是具有COMODO SSL证书的apache2服务器。 在/etc/apache2/sites-enabled/000-default.conf ，服务器名称设置为

ServerName www.example.com  

任何帮助都是最令人沮丧的

Answer 1

httr包中包含它自己的CA包，所以这可能不是问题。 更可能是服务器端SNI配置问题或证书问题

遗憾的是，您尚未发布包含实际网址的可重现示例。 但是使用最新版本的新openssl软件包，您可以轻松调试服务器证书：

library(openssl)
cert <- download_ssl_cert("www.r-project.org")
print(cert)
print(as.list(cert[[1]]))

也尝试验证它

cert_verify(cert, ca_bundle())

这可能会暗示您的证书有什么问题。

Answer 2

好像在改变

ServerName www.example.com

至

ServerName example.com

解决了这个问题。 我从另一台计算机上尝试了这个解决方案，我能够使用httr POST功能和这个修复程序一起使用默认的httr CA捆绑包。