Export the data from rpivotTable in excel about rpivottable HOT 9 CLOSED

library(shiny)
library(rpivotTable)
library(rvest)

x <- read.csv("./forest/srs3a.csv", stringsAsFactors = FALSE)

ui <- fluidPage(sidebarLayout( sidebarPanel(
  selectizeInput('row','Row:', choices = c('County','Unit','NULL')),
  actionButton("go","Go"),
  actionButton("save","Save"),
  selectizeInput('state','State:',choices = c('Alabama','Arkansas','Florida','Texas')),
  actionButton("map","Map")),

  mainPanel(tabsetPanel(type="tabs",
                      tabPanel("Table",rpivotTableOutput("table")),
                      tabPanel("Map")  ))
))

server <- function(input, output, session)
{

  session$onSessionEnded(stopApp)
  
  myrows <- eventReactive(input$go,
                          {switch(input$row,
                                  "County" = c("COUNTYCD"),
                                  "Unit" = c("UNITCD"))
                         })
  
  
  output$table <- renderRpivotTable({

    rpivotTable(x,
                rows=myrows(),col="CSC",
                aggregatorName="Sum",
                vals="acres",
                rendererName="Table",
                inclusions=list(STNAME=list(input$state)),
                onRefresh = htmlwidgets::JS("function(config) {Shiny.onInputChange('myData', 
                                            document.getElementById('table').innerHTML); 
  }"))
  })
  
  summarydf <- eventReactive(input$myData,{
    input$myData %>%
      read_html %>%
      html_table(fill = TRUE) %>%
      .[[2]]
  })
  
  observeEvent( input$save, {
    if(nrow(summarydf() )<1) return()
    write.csv(summarydf(), file="./forest.csv")
  })
  
}

shinyApp(ui = ui, server = server)