inst/Tools/server/UPLOADLLQC_server.R

In JARS3N/PipeFish: pKa,outlier,pO2model,etc

observeEvent( input$send,{
  print("ok")
  dir <- choose.dir()
  if(input$CB==TRUE){PipeFish::XLSXos(dir)}
  if (!is.na(dir)) {
    list.files(path=dir,full.names = T,pattern = 'xlsx') %>%
      lapply(.,PipeFish::mungeLL) %>%
      lapply(.,PipeFish::UPLOADLL)
    message("complete")
  }else{
    message('no directory selected')
  }
})