observeEvent(input$BB,{
DIR<-choose.dir()
if(!is.na(DIR)){
if(input$CB==TRUE){PipeFish::torquemada(DIR)}
PipeFish::asyr_pKa(input$pHFluor,input$MFBatch,input$Platform,DIR)
}
})
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.