Я не могу опубликовать свое блестящее приложение на shinyapps.io
Я пытался развернуть приложение Shiny на Shinyapps.io, но всегда получал один и тот же ответ:ERROR: An error has occurred. Check your logs or contact the app author for clarification.
, Сначала я попробовал это с моим собственным приложением, но я сдаюсь, и я подумал, что в моем приложении произошла ошибка. Затем из Интернета я получаю очень простое приложение, в котором всего несколько строк кода и... удивительно! Это не сработало. Я не знаю почему, потому что я выполнил все шаги и вижу приложение в своем локальном окне. Поэтому я проверил относительные пути и т. Д., И ни один из них не использовался. Логи тоже не помогают, поэтому я не знаю, что еще делать. Пожалуйста, любой совет может быть полезен. Большое спасибо
Это блестящий код 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
1 ответ
Решаемые. Я пишу здесь, как я мог сделать это, чтобы помочь любому с той же проблемой. Прежде всего, моей главной проблемой было не совсем хорошо понять, как работает Dockerfile, поэтому после некоторой документации я не добавил пакет, необходимый для Shiny Server.
Эта страница: https://www.linode.com/docs/development/r/how-to-deploy-rshiny-server-on-ubuntu-and-debian/ мне помогает.
Кроме того, я рекомендую использовать команду "sudo R" и сначала попробовать каждый установочный пакет R, чтобы увидеть, что происходит в каждый момент (я создал приложение в RStudio, поэтому я не знал, какие пакеты, как libssl-dev, были нужны), Таким образом, вы можете легко просматривать все журналы и знать, какие пакеты вы не включили и должны быть в Dockerfile.