R/dbGetEncodedValueByTraitId.R

In UW-GAC/dbTopmedHelper: topmed_pheno helper functions

#' Get encoded values by trait ID
#' @param db A database connection
#' @param trait_ids a vector of trait_ids
#' @import dbTopmed
#' @export
dbGetEncodedValueByTraitId <- function(db, trait_ids){
  query <- paste("SELECT t.source_trait_id, t.dbgap_variable_accession, t.trait_name,",
                 "e.category, e.value",
                 "FROM source_trait_encoded_values e",
                 "LEFT JOIN source_trait t ON e.source_trait_id = t.source_trait_id WHERE",
                 sprintf("e.source_trait_id IN (%s)", paste(trait_ids, collapse = ", ")))
  dbGetQuery(db, query)
}