R/gidMax.R

In InternationalRiceResearchInstitute/pedX:

#' gidMax Function to identify the most commonly used gid
#'
#' @import RPostgreSQL
#' @param gidvec A vector of numeric gids
#' @param dbenv the database connection environment
#' @export
#'
gidMax<- function(gidvec, dbenv){
  nhits<- c()
  for(i in 1:length(gidvec)){
    assign('gid', gidvec[i], envir=dbenv)
    nhit<- nrow(with(dbe, dbGetQuery(con, sprintf("SELECT * FROM germplsm WHERE gpid2=%d",gid))))
    nhits<- append(nhits, nhit)
  }
  return(gidvec[which.max(nhits)])
}