我正在使用 rpivotTables Shinyapp 使用按钮将数据透视表数据导出为 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)