无法使用rpivotTable从ShinyApp将数据透视表输出另存为excel / csv

Question

我想使用按钮（注意：以 csv，excel，pdf 形式导出枢纽分析表数据，如图像所示）：我不想导出实际数据）。但是由于我的知识有限，我无法这样做，无法弄清原因。请指导我，我将非常感谢您的帮助。

亲切的问候

我的代码：

library(rpivotTable)
library(dplyr)
library(readr)
library(shiny)

#ui
ui = fluidPage(
radioButtons(inputId="format", label="Enter the format to download", 
choices=c("none", "csv", "excel", "pdf", "copy"), selected="none"),

fluidRow( rpivotTableOutput("pivot")))


#server
server = function(input, output) { 


output$pivot <- renderRpivotTable( rpivotTable::rpivotTable( rows = c( 
"vs"),cols=c("carb"),vals =  "mpg", aggregatorName = "Sum",rendererName =  
"Table",width="50%", height="550px",
{
data <- mtcars

if(input$format =="csv") {
write_csv( data, 'data.csv')

} 
if (input$format=="excel") {
write.xlsx(data, "data.xlsx")
} 

data
}))}

shinyApp(ui = ui, server = server)