Ich habe ein interessantes Paket gefundenrpivotTable. Ich möchte @ erstellshiny app welches beinhaltetrpivotTable mit der Möglichkeit generierte Daten mit @ herunterzuladdownloadHandler.

Ich kann jedoch keine Lösung finden, wie man @ erstelldata.frame oder etwas anderes, das ich an das @ weitergeben könndownloadHandler Funktion.

rpivotTable erstellt ein Objekt der Klasse:

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

Ist es möglich, die Ausgabe dieser Funktion herunterzuladen?

Auch füge ich das Beispiel, wie der Pivot in glänzend erstellt wird und das Beispiel der Download-Funktion, die ich verwenden möchte.

Vielleicht sind die anderen Ideen oder Vorschläge?

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)
})