R/asyr_to_xl_server.R

In JARS3N/shinyStar: shinyStar

asyr_to_xl_server<-function(){

    require(shiny)
    require(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")
                                   })
    })

}