r语言 - 我无法在 shinyapps.io 上发布我的闪亮应用程序

Question

我一直在尝试在shinyapps.io上部署一个闪亮的应用程序，但总是有相同的响应： ERROR: An error has occurred. Check your logs or contact the app author for clarification.。起初，我尝试了自己的应用程序，但是我放弃了，尽管我的应用程序有一个错误。然后，我从Internet获得了一个非常简单的应用程序，该应用程序只有几条代码线，而且……令人惊讶！它无效。我不知道为什么，因为我遵循所有步骤，并且在本地窗口上看到了该应用程序。因此，我检查了相对路径等，并且没有使用。日志都没有帮助，所以我不知道该怎么办。请任何建议都有用。非常感谢

这是r闪亮的代码：

ui.r

library(shinydashboard)
library(rsconnect)

setwd(dirname(rstudioapi::getActiveDocumentContext()$path))
deployApp()
ui <- dashboardPage(
  dashboardHeader(title = "Info boxes"),
  dashboardSidebar(),
  dashboardBody(
    # infoBoxes with fill=FALSE
    fluidRow(
      # A static infoBox
      infoBox("New Orders", 10 * 2, icon = icon("credit-card")),
      # Dynamic infoBoxes
      infoBoxOutput("progressBox"),
      infoBoxOutput("approvalBox")
    ),
    # infoBoxes with fill=TRUE
    fluidRow(
      infoBox("New Orders", 10 * 2, icon = icon("credit-card"), fill = TRUE),
      infoBoxOutput("progressBox2"),
      infoBoxOutput("approvalBox2")
    ),
    fluidRow(
      # Clicking this will increment the progress amount
      box(width = 4, actionButton("count", "Increment progress"))
    )
  )
)

server.r

server <- function(input, output) {
  output$progressBox <- renderInfoBox({
    infoBox(
      "Progress", paste0(25 + input$count, "%"), icon = icon("list"),
      color = "purple"
    )
  })
  output$approvalBox <- renderInfoBox({
    infoBox(
      "Approval", "80%", icon = icon("thumbs-up", lib = "glyphicon"),
      color = "yellow"
    )
  })
  # Same as above, but with fill=TRUE
  output$progressBox2 <- renderInfoBox({
    infoBox(
      "Progress", paste0(25 + input$count, "%"), icon = icon("list"),
      color = "purple", fill = TRUE
    )
  })
  output$approvalBox2 <- renderInfoBox({
    infoBox(
      "Approval", "80%", icon = icon("thumbs-up", lib = "glyphicon"),
      color = "yellow", fill = TRUE
    )
  })
}

日志：

    2018-04-26T16:47:00.598156+00:00 shinyapps[331049]: 
2018-04-26T16:47:00.608370+00:00 shinyapps[331049]: The following object is masked from ‘package:shiny’:
2018-04-26T16:47:00.608017+00:00 shinyapps[331049]: 
2018-04-26T16:47:00.608371+00:00 shinyapps[331049]: 
2018-04-26T16:47:00.608019+00:00 shinyapps[331049]: Attaching package: ‘rsconnect’
2018-04-26T16:47:00.608371+00:00 shinyapps[331049]:     serverInfo
2018-04-26T16:47:00.598159+00:00 shinyapps[331049]: Attaching package: ‘shinydashboard’
2018-04-26T16:47:00.608372+00:00 shinyapps[331049]: 
2018-04-26T16:47:00.598161+00:00 shinyapps[331049]: 
2018-04-26T16:47:00.612987+00:00 shinyapps[331049]: Warning: Error in : RStudio not running
2018-04-26T16:47:00.617053+00:00 shinyapps[331049]:     12: fn
2018-04-26T16:47:00.598930+00:00 shinyapps[331049]: The following object is masked from ‘package:graphics’:
2018-04-26T16:47:00.617046+00:00 shinyapps[331049]: Stack trace (innermost first):
2018-04-26T16:47:00.617054+00:00 shinyapps[331049]:     11: doTryCatch
2018-04-26T16:47:00.598932+00:00 shinyapps[331049]: 
2018-04-26T16:47:00.617048+00:00 shinyapps[331049]:     58: verifyAvailable
2018-04-26T16:47:00.617054+00:00 shinyapps[331049]:     10: tryCatchOne
2018-04-26T16:47:00.598933+00:00 shinyapps[331049]:     box
2018-04-26T16:47:00.617048+00:00 shinyapps[331049]:     57: callFun
2018-04-26T16:47:00.617054+00:00 shinyapps[331049]:      9: tryCatchList
2018-04-26T16:47:00.617051+00:00 shinyapps[331049]:     55: rstudioapi::getActiveDocumentContext
2018-04-26T16:47:00.617055+00:00 shinyapps[331049]:      7: connect$retry
2018-04-26T16:47:00.617052+00:00 shinyapps[331049]:     54: dirname
2018-04-26T16:47:00.617056+00:00 shinyapps[331049]:      6: eval
2018-04-26T16:47:00.617052+00:00 shinyapps[331049]:     53: setwd
2018-04-26T16:47:00.617053+00:00 shinyapps[331049]:     13: runApp
2018-04-26T16:47:00.598934+00:00 shinyapps[331049]: 
2018-04-26T16:47:00.617049+00:00 shinyapps[331049]:     56: getDocumentContext
2018-04-26T16:47:00.617055+00:00 shinyapps[331049]:      8: tryCatch
2018-04-26T16:47:00.608019+00:00 shinyapps[331049]: 
2018-04-26T16:47:00.617057+00:00 shinyapps[331049]:      4: eval
2018-04-26T16:47:00.617057+00:00 shinyapps[331049]:      3: eval
2018-04-26T16:47:00.617057+00:00 shinyapps[331049]:      2: eval.parent
2018-04-26T16:47:00.617058+00:00 shinyapps[331049]:      1: local
2018-04-26T16:47:00.617405+00:00 shinyapps[331049]: Error : An error has occurred. Check your logs or contact the app author for clarification.
2018-04-26T16:47:00.617056+00:00 shinyapps[331049]:      5: eval

Answer 1

已解决。我在这里发布如何做到这一点，以帮助有同样问题的任何人。首先，我的主要问题是不太了解Dockerfile的工作原理，因此在一些文档后，我看到我没有添加Shiny Server所需的包装。

此页面：https：//www.linode.com/docs/development/r/how-to-deploy-rshiny-server-niny-server-on-on-ubuntu-and-debian/很多。

另外，我建议使用命令" sudo r"，然后先尝试每个r安装软件包，以查看每时每刻发生了什么(我在rstudio中制作了该应用程序，所以我不知道哪些软件包-like like libssl -dev-需要(。这样，您可以轻松地看到所有日志，并且能够知道您不包含哪些包装，并且必须在Dockerfile