Reputation: 131
I'm trying to deploy a shiny application. The code of the app is:
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)
I use `rsconnect::deployApp('path/to/your/app')` for deploy my app. But the following error appears.
Error in value[[3L]](cond) : there is no package called ‘rpivotTable’
Calls: local ... tryCatch -> tryCatchList -> tryCatchOne -> <Anonymous>
Ejecución interrumpida
as shown in this link https://csarmiento.shinyapps.io/riesgos/.
How can I solve this error?
Upvotes: 0
Views: 45