同行的证书颁发者不被认可

Question

我正在尝试使用 {connectapi} 包在 Posit Connect 上设置 .qmd 文件的时间表。

因此 .qmd 文件运行并执行其操作，然后在脚本末尾我有这段代码：

client <- connectapi::connect(
  server = Sys.getenv("CONNECT_SERVER"),
  api_key = Sys.getenv("CONNECT_API_KEY"))

file_qmd <- connectapi::content_item(client, 
                                              app-guid)

file_qmd _variant <- connectapi::get_variant_default(file_qmd)
file_qmd _sched <- connectapi::get_variant_schedule(file_qmd _variant)
connectapi::set_schedule_dayofmonth(file_qmd _sched,
                                    n = 1,
                                    start_time = sched_time,
                                    day = sched_day,
                                    activate = TRUE,
                                    email = TRUE)

代码在我的本地计算机/ RStudio 上按预期运行和工作。 {connectapi} 包更新 Posit Connect 上应用程序的调度。 我想将其部署到 Posit Connect，以便每次运行时它都会自动更新到下一个计划日期。

但是，我在部署时遇到此错误：

Quitting from lines 344-374 [unnamed-chunk-14] (file_push.qmd)
Error in `curl::curl_fetch_memory()`:
! Peer certificate cannot be authenticated with given CA certificates: [rsconnect-pp] Peer's Certificate issuer is not recognized.
Backtrace:
 1. connectapi::connect(server = Sys.getenv("CONNECT_SERVER"), api_key = Sys.getenv("CONNECT_API_KEY"))
 2. base::tryCatch(...)
 3. base (local) tryCatchList(expr, classes, parentenv, handlers)
 4. base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]])
 5. value[[3L]](cond)
Execution halted
Stopped session pings to http://127.0.0.1:37240
Unable to render the deployed content: Rendering exited abnormally: exit status 1

我想做的事情可能/容易吗？我是否需要包含一些其他文件（也许是 SSL 证书等？）。

Answer 1

一位同事发现了这个问题：

“我必须将中间证书添加到信任存储区。因为由于某种原因，它从同一服务器内调用 API，因此它们没有正确发送，因此您会收到证书颁发者错误。”