R/n_lightleak_inst.R

Defines functions n_lightleak_inst

n_lightleak_inst<-function(plat_input){
db<-adminKraken::con_mysql()
query_string<-"SELECT COUNT(DISTINCT(Serialnumber)) as res from instqcllmeta where LEFT(Serialnumber,2) = '%plat%';"
query_sent<-RMySQL::dbSendQuery(db,gsub("%plat%",plat_input,query_string))
out<-RMySQL::dbFetch(query_sent)
RMySQL::dbClearResult(query_sent)
RMySQL::dbDisconnect(db)
out$res
}
JARS3N/LiveLongAndProsper documentation built on June 21, 2020, 12:49 p.m.