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
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.