He encontrado un paquete interesanterpivotTable. Me gustaria crearshiny app que incluyerpivotTable con la posibilidad de descargar datos generados usandodownloadHandler.

Sin embargo, no puedo encontrar la solución, cómo creardata.frame o algo más que podría pasar aldownloadHandler función.

rpivotTable crea un objeto de clase:

class(pivot)
[1] "rpivotTable" "htmlwidget" 

¿Hay alguna posibilidad de descargar la salida de esta función?

Además, adjunto el ejemplo, cómo se crea el pivote en brillante y el ejemplo de la función de descarga que me gustaría usar.

Tal vez son las otras ideas o sugerencias?

set.seed(1992)
n=99
Year <- sample(2013:2015, n, replace = TRUE, prob = NULL)
Month <- sample(1:12, n, replace = TRUE, prob = NULL)
Category <- sample(c("Car", "Bus", "Bike"), n, replace = TRUE, prob = NULL)
Brand <- sample("Brand", n, replace = TRUE, prob = NULL)
Brand <- paste0(Brand, sample(1:14, n, replace = TRUE, prob = NULL))
USD <- abs(rnorm(n))*100

df <- data.frame(Year, Month, Category, Brand, USD)



output$Pivot <- rpivotTable::renderRpivotTable({
 rpivotTable(data = df, rows = "Brand", col = "Category", vals = "USD", aggregatorName = "Sum", rendererName = "Table")
})



  output$downloadData <- downloadHandler(
   filename = function() { paste(filename, '.csv', sep='') },
   content = function(file) {
   write.csv(PivotOutput, file)
})