使用LDAP https身份验证连接R和Presto

我正在尝试使用RPresto包将R与presto连接起来。我的主要目的是在将R与Presto连接时，用户应该获得身份验证窗口，一旦完成，用户应该能够获取查询

我尝试过使用http进行基本身份验证，结果成功，但在通过https连接时，我遇到了错误

基本的身份验证方法对我来说很有效

library(dplyr)
library(RPresto)
db <- src_presto(
  host='http://example.com',
  port=XXXX,
  user=Sys.getenv('USER'),
  schema='test',
  catalog='hive'
)

库（dplyr）
图书馆（RPresto）
db“
对等方的证书已过期”
“--您是否拥有有效的SSL/TLS证书？对等方证书似乎存在问题，一旦管理员获得新证书，我将尝试运行脚本。但是你觉得剧本怎么样？它是有效的还是我需要添加任何其他参数？管理员团队续订的证书仍然会遇到相同的错误，有人可以帮助吗？
library(dplyr)
library(RPresto)
library(httr)
db <- src_presto(
  host='https://example.com',
  port=(secure port),
  user=Sys.getenv('USER'),
  schema='test',
  catalog='hive'
)