闪亮的IO帐户信息SLL错误

Question

我正在尝试在Shiny上发布应用程序。我已经能够在家用电脑上执行此操作，但出于某种原因无法在我的工作电脑上执行此操作。

install.packages('shiny')
install.packages('devtools')
install.packages('httr')
install.packages('rsconnect')
library(shiny)
library(devtools)
library(httr)
library(rsconnect)

httr::set_config(config(ssl_verifypeer = 0L))
devtools::install_github('rstudio/shinyapps')
rsconnect::setAccountInfo(name='name', token='token', secret='secret')

ui = fluidPage(
   sliderInput(inputId = "num",
          label = "Choose a number",
          value = 25, min = 1, max = 100),
   plotOutput("hist")
)

server = function(input, output){
   output$hist = renderPlot({
      hist(rnorm(input$num))
   })
}


shinyApp(ui = ui, server = server)

Error in function (type, msg, asError = TRUE)  : 
SSL certificate problem: self signed certificate in certificate chain
Timing stopped at: 0.04 0 1.81 

我看过https://curl.haxx.se/libcurl/c/CURLOPT_CAINFO.html，但从技术角度来看，这是我的头脑。