0

我正在尝试部署一个闪亮的应用程序。该应用程序的代码是：

library(shiny)
library(rpivotTable)


ui <- fluidPage(theme = "bootstrap.css",
                titlePanel(windowTitle = "Archivo de riesgo",
                           title =
                             div(
                               tags$img(
                                 src = "logof.png",
                                 style = "margin:10px 10px"
                               ),
                               "Archivo de riesgo"
                             )
                ),

                mainPanel(
                  h6("Nota: número de riesgos en miles; valor asegurado y prima en millones."),
                  rpivotTable::rpivotTableOutput("OverallPivot")
                )
)


server <- function(input, output) {

  output$OverallPivot <- renderRpivotTable({
    rpivotTable(data = base_final_compañias, rows="seguro", cols="año", vals = "valor", aggregatorName = "Sum", rendererName = "Horizontal Bar Chart", inclusions=list(`Descripción`=list("Número de riesgos")))
  })
}

# Run the application 
shinyApp(ui = ui, server = server)
我使用 `rsconnect::deployApp('path/to/your/app')` 来部署我的应用程序。但是会出现以下错误。 
Error in value[[3L]](cond) : there is no package called ‘rpivotTable’
Calls: local ... tryCatch -> tryCatchList -> tryCatchOne -> <Anonymous>
Ejecución interrumpida
如此链接 https://csarmiento.shinyapps.io/riesgos/ 所示。

我该如何解决这个错误？

4

0 回答 0