闪亮的服务器：套接字挂断

Question

更新：我在下面添加了解决方案

问题

一点背景知识：我是运行 Shiny 服务器 v1.5，在 Ubuntu 精确服务器上。基本上我有一个 rmarkdown 页面，允许用户使用一些参数，然后有一个下载按钮，可以像这样使用 shiny 生成文档：

```{r,echo=FALSE}
downloadHandler(
  filename = "report.pdf",
  content = function(file) {
    knitr::knit2pdf("report.Rnw",envir=environment())
    file.rename(normalizePath('report.pdf'), file)
  }
)
```

Shiny 应用程序在我的本地计算机上运行良好，但在服务器上崩溃。更具体地说，r markdown 网页工作正常，但一旦我点击下载按钮，应用程序会在大约 30 秒后崩溃。服务器日志指示套接字超时错误：

[2016-02-24 03:38:52.240] [INFO] shiny-server - Starting listener on 0.0.0.0:3838
[2016-02-24 03:49:30.183] [ERROR] shiny-server - Uncaught exception: Error: socket hang up
[2016-02-24 03:49:30.184] [ERROR] shiny-server - Error: socket hang up
    at createHangUpError (_http_client.js:215:15)
    at Socket.socketCloseListener (_http_client.js:247:23)
    at Socket.emit (events.js:129:20)
    at TCP.close (net.js:485:12)
[2016-02-24 03:49:30.184] [INFO] shiny-server - Stopping listener on 0.0.0.0:3838
[2016-02-24 03:49:30.185] [INFO] shiny-server - Shutting down worker processes (with notification)
/opt/shiny-server/lib/main.js:364
  throw err;
        ^
Error: socket hang up
    at createHangUpError (_http_client.js:215:15)
    at Socket.socketCloseListener (_http_client.js:247:23)
    at Socket.emit (events.js:129:20)
    at TCP.close (net.js:485:12)

此 pdf 需要很长时间才能生成（大约五分钟），所以我怀疑我在某处遗漏了一些超时参数。这就是我在闪亮的配置中所做的：

run_as shiny;
app_init_timeout 999999;
app_idle_timeout 999999;

# Define a server that listens on port 3838
server {
  listen 3838;
  ....
}

...但无济于事，因为我仍然遇到错误。任何建议将不胜感激！

解决方案

正如@daattali 所提到的，您不能在 downloadButton 中花费那么长时间，更改服务器设置不会改变任何内容。所以我最终将生成和下载功能分成两部分，如下所示：

```{r, echo=FALSE}
shinyApp(
  ui = fluidPage(
    fluidRow(
      column(2,
        conditionalPanel(
          condition = "!$('makeReport').hasClass('shiny-busy')",
          actionButton("makeReport","Generate Report",icon=icon("file"))
        )
      ),
      column(4,
      conditionalPanel(
        condition = "!$('makeReport').hasClass('shiny-busy')",
        uiOutput("downloadButton")
        #downloadButton("downloadReport", "Download Report")
      )
      )
    )
  ),
  server = function(input, output) {
    output$download_button <- renderUI({
        downloadButton("downloadReport", "Download Results")
     })
    makeReportAction <- eventReactive(input$makeReport, {
        ...
        knitr::knit2pdf("report.Rnw",envir=globalenv())
    })
    output$downloadButton <- renderUI({
      makeReportAction() #only appear after first click on generate
      downloadButton("downloadReport", "Download Report")
    })
    output$downloadReport <- downloadHandler(
      filename = "report.pdf",
      content = function(file) {
        cat(paste("Does the pdf exist?",file.exists("report.pdf")))
        file.rename(normalizePath('report.pdf'), file)
      }
    )
  }
)
```

Answer 1

这可能与上周 Google 版块中有人向 Joe Cheng 提出的问题相同

https://groups.google.com/forum/#!topic/shiny-discuss/4bL9jFaYly0

下载处理程序似乎有时间限制，所以也许可以尝试查看是否可以预先生成文件并仅在单击按钮时才提供文件

闪亮的服务器：套接字挂断

Shiny server: socket hang up

r

node.js

r-markdown

shiny

shiny-server

问题

解决方案