library(shiny)
library(PipeFish)
shinyServer(function(input,output,session) {
session$onSessionEnded(function() {
stopApp()
})
observeEvent(input$Quit, {
stopApp(returnValue = invisible())
})
stuffHappens<- observeEvent(input$EXP,
{fldr<-choose.dir()
PipeFish::Outandsave(fldr)
output$session <- renderText("Script Complete")
})
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.