inst/rePrintBarcodes/server.R

library(shiny)
library(dplyr)
library(PipeFish)
 #ConnectInfo<-DataStash::Triton()
  my_db <-dplyrCON()
Q<-my_db %>%
  tbl('barcodelotview') %>% 
  select(Lot_Num) %>% 
  distinct() %>% 
  collect() %>% 
  .$Lot_Num
shinyServer(function(input, output,session) {
 session$onSessionEnded(function() {
    stopApp()
  })

 
  updateSelectInput(session,'Lot',choices=c("N/A",Q))
  
  observeEvent(input$Lot,{
    if(input$Lot!="N/A"){
     lotn<- substr(input$Lot,2,nchar(input$Lot))
      lotl<-substr(input$Lot,1,1)
  DF<-  my_db %>%
      tbl('barcodelotview') %>%
    filter(Lot_Num_Input==lotn) %>%
   filter(Cart_type==lotl) %>%
     arrange(.,Serial_Num) %>%
    collect() %>% 
    list('Matrix'=.)
  dir<-"//lexnas03a-vs1-nas-s1lkq.agilent.com/LSAG/Seahorse Bioscience Chicopee/SH Consumables Labeling"
  outfl<-'CartridgeDatabase.xlsx'
  library(openxlsx)
  write.xlsx(DF,file=file.path(dir,outfl))

    }
  })
  
  
  
})
JARS3N/PipeFish documentation built on May 7, 2019, 6:47 a.m.