使用rpivotTable部署闪亮的应用程序时出错

Question

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

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/所示。

如何解决此错误？