Невозможно сохранить вывод сводной таблицы как Excel / CSV из ShinyApp с помощью rpivotTable - PullRequest
Новая
       47

Невозможно сохранить вывод сводной таблицы как Excel / CSV из ShinyApp с помощью rpivotTable

0 голосов
/ 31 октября 2018

Я хочу экспортировать данные сводной таблицы, как показано на рисунке в форме csv, excel, pdf , используя кнопки ( Примечание : я не хочу экспортировать фактические данные ). Однако я не могу этого сделать, не могу понять причину из-за моих ограниченных знаний. Пожалуйста, ведите меня, я буду очень благодарен за помощь.

С уважением

need to save this out put data

Мой код: 

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