R/react_wetqc_lot_data.R

Defines functions react_wetqc_lot_data

react_wetqc_lot_data<-function(platform,variable,inputLot,db){
  q_string <- c("Select well,`", variable, "` as var,sn,Inst from ", 
                platform, " where Lot=", shQuote(inputLot), 
                " AND `",variable,"` IS NOT NULL;")
  q<-RMySQL::dbSendQuery(db,paste0(q_string,collapse=""))
  a<-RMySQL::fetch(q,n=-1)
  RMySQL::dbClearResult(q)
  a$Inst<-factor(a$Inst)
  a
}
JARS3N/LiveLongAndProsper documentation built on March 29, 2025, 7:38 p.m.