R/details_check_presence.R

In JARS3N/details: details

check_presence<-function(u){
  conn<- adminKraken::con_mysql()
  qry_str<-paste0('select DISTINCT(sn) from mvdata where Lot="',u,'";')
  qry<-dbSendQuery(conn,qry_str)
  qry_res<-dbFetch(qry)
  dbDisconnect(conn)
  qry_res$Lot<-u
  qry_res
}