inst/enterOligo/server.R

library(shiny)
shinyServer(function(input, output) {
   observeEvent(input$GO,{
      D<-choose.dir()
     if(input$cb==TRUE){
        regQC::Outandsave(D)
        }
     if(!is.null(D)){
     regQC::runOligoFolder(D)
     }
     })
})
JARS3N/regQC documentation built on May 5, 2019, 3:48 a.m.