inst/shiny_pka/server.R

In JARS3N/shinyStar: shinyStar

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

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

  observeEvent(input$Quit, {
    stopApp(returnValue = invisible())
  })

  observe({
    if(input$BB > 0 ){
      DIR<-choose.dir()
      if(input$CB==TRUE){xprt::xfd_to_asyr(DIR)}
      asyr::asyr_pKa(input$pHFluor,input$MFBatch,input$Platform,DIR)
    }
  })
})