Encontrei um pacote interessanterpivotTable. Eu gostaria de criarshiny app que incluirpivotTable com a possibilidade de baixar dados gerados usandodownloadHandler.

No entanto, não consigo encontrar a solução, como criardata.frame ou qualquer outra coisa que eu seria capaz de passar para odownloadHandler função.

rpivotTable cria um objeto de classe:

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

Existem três possibilidades para baixar a saída desta função?

Além disso, anexo o exemplo, como o pivô é criado em brilhante e o exemplo da função de download que eu gostaria de usar.

Talvez haja outras idéias ou sugestões?

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