inst/ExportAsyrToExcel/server.R

In JARS3N/shinyStar: shinyStar

library(shiny)
library(xprt)
shinyServer(function(input,output,session) {

  session$onSessionEnded(function() {
    stopApp()
  })


  observeEvent(input$Quit, {
    stopApp(returnValue = invisible())
  })
  stuffHappens<-  observeEvent(input$EXP,
                               {fldr<-choose.dir()
                               xprt::asyr_to_xl(fldr)
                               output$session <- renderText("Script Complete")
                               })
})