observeEvent(input$EXP,
{fldr<-choose.dir()
if(!is.na(fldr)){
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.