Я нашел интересную посылкуrpivotTable, Я хотел бы создатьshiny app который включает в себяrpivotTable с возможностью загрузки сгенерированных данных с использованиемdownloadHandler.

Тем не менее, я не могу найти решение, как создатьdata.frame или что-то еще, что я мог бы передатьdownloadHandler функция.

rpivotTable создает объект класса:

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

Есть ли у вас какие-либо возможности загрузить выходные данные этой функции?

Кроме того, я прилагаю пример того, как в блестящем создается пивот, и пример функции загрузки, которую я хотел бы использовать.

Может быть, есть какие-либо другие идеи или предложения?

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