使用 httr package 从 curl 命令复制 ping 请求

Question

我在 r package httr 中复制一些 curl 命令时遇到了一些问题：

这是 curl 命令，工作正常：

curl --location --request GET 'https://test.com:443/a/b/ping' --header 'system-auth: __token1__' --header 'Authorization: __token2__'

我尝试使用 httr package 复制此行为：

endpoint = "/a/b/ping"
proxy <- "https://test.com:443"
token1 <- "__token1__"
token2 <- "__token2__"

header <- httr::add_headers(.headers = c("system-auth" = token1, "Authorization" = token2))
result <- httr::GET(paste0(proxy, endpoint), header = header)

通过 httr 请求，我收到以下错误：

* OpenSSL SSL_read: SSL_ERROR_SYSCALL, errno 104
* stopped the pause stream!
* Closing connection 0
Error in curl::curl_fetch_memory(url, handle = handle) : 
  OpenSSL SSL_read: SSL_ERROR_SYSCALL, errno 104

所以我正在寻找如何更改 httr 请求以使其工作的想法，或者解释为什么 curl 命令的结果和通过 httr 的请求不同。