ShinyApps:部署在Shinyapps.io上时未加载的“shiny题材”包

Question

我正在尝试在线部署一个R闪亮的应用程序。该应用程序在本地部署时运行良好。它基本上只是一个图表的仪表板。

但是，当我将它部署到shinyapps.io上时，应用程序只显示以下错误：

"ERROR: there is no package called ‘shinythemes’".

我猜这意味着这个应用的在线版本无法加载shinythemes包，但是我到处搜索，但我似乎找不到有类似问题或解决方案的人。

下面是应用程序的ui.R代码

library(shiny)
library(shinythemes)

shinyUI(fluidPage(
  theme = shinytheme("flatly"),
  titlePanel("Bodhi Forest - Website Visitor Analysis"),
  selectInput("user_period","Use Data from the Last",c("7 days" = "7",
                                                       "30 days" = "30",
                                                       "60 days" = "60",
                                                       "90 days" = "90"),
              selected = "30"),
  tabsetPanel(
    tabPanel("Demographics",fluidPage(
      selectInput("Dem_Dim","Dimension",c("Age","Gender")),
      fluidRow(
        column(12,htmlOutput("Dem_Dim"),align="center")
      ),
      br(),
      fluidRow(
        column(6,htmlOutput("Dem_Sessions",inline=TRUE),align="center"),
        column(6,htmlOutput("Dem_SessionLength",inline=TRUE),align="center")
      ),
      br(),
      fluidRow(
        column(6,htmlOutput("Dem_Revenue",inline=TRUE),align="center"),
        column(6,htmlOutput("Dem_RevenuePerTransaction",inline=TRUE),align="center")
      ),
      br(),
      fluidRow(
        column(6,htmlOutput("Dem_Users",inline=TRUE),align="center"),
        column(6,htmlOutput("Dem_NewUsers",inline=TRUE),align="center")
      ),
      br(),
      fluidRow(
        column(6,htmlOutput("Dem_Bounce",inline=TRUE),align="center")
      ),
      hr(),
      fluidRow(
        column(12,dataTableOutput("Dem_Table"))
      ),
      hr()
    )),
    tabPanel("Interests",fluidPage(
      selectInput("Int_Filter","",c(
        "Top 5",
        "Bottom 5"
      )),
      fluidRow(
        column(6,wellPanel(plotOutput("Int_Sessions"))),
        column(6,wellPanel(plotOutput("Int_SessionLength"))),
        column(6,wellPanel(plotOutput("Int_Revenue"))),
        column(6,wellPanel(plotOutput("Int_RevenuePerTransaction"))),
        column(6,wellPanel(plotOutput("Int_Users"))),
        column(6,wellPanel(plotOutput("Int_NewUsers"))),
        column(6,wellPanel(plotOutput("Int_Bounce")))
      ),
      hr(),
      fluidRow(
        column(12,dataTableOutput("Int_Table"))
      ),
      hr()
    ))
  )
))

server.R代码没有调用shinythemes，所以我猜想错误在ui.R中，但我不知道需要做什么，因为我已经看到其他应用程序只调用library(shinythemes)，它们可以工作。

我重新更新了shiny、shinyapps和shinythemes，但都没有用.

会真的很感激在这方面的任何帮助！几个小时以来，一直试图部署这个应用程序，但似乎找不出答案。

Answer 1

这是weird...but，我想出了最奇怪的解决方案。不知何故，它与shinythemes包没有任何关系！什么？!

因此，基本上，在我的server.R代码中，我包括了DT和rsconnect包。在ui.R代码中，我使用了hr()和dataTableOutput()函数。Now...the的特点是，这些函数包含在已加载的多个包中：

1. hr()既是闪亮的，也是rsconnect的。
2. dataTableOutput()既是闪亮的，又是DT的。

我只是在ui.R中的这些函数之前添加了名称空间shiny::，如下所示：

1. shiny::hr()
2. shiny::dataTableOutput()

当我尝试在shinyapp again...WALA上部署它们的时候！这个应用程序工作得很完美！

我只是觉得好笑的是，我几乎浪费了整整一天的时间来解决这个问题，并且对这个解决方案与错误信息没有任何关系感到好笑。希望这能为面临同样问题的人节省大量时间。

我仍然想知道为什么会出现这种情况，为什么错误信息是如此的misleading...Perhaps，让闪亮的开发人员去思考？

Answer 2

同意的超级怪异-我有一个非常类似的问题，我使用DT，并必须通过和附加的东西，如DT::dataTableOutput()的每一个部分调用相关的功能。

我用shinythemes::shinytheme()修复了这个问题，当然在那之后我发现了更多的bug，但是进展顺利。