R/hpo_term_definition_list.R

In ovrhuman/HPOExplorer: Analysis and Visualisation of the Human Phenotype Ontology

#' Get HPO term description for a list of terms
#'
#' Need to redo this without a for loop (use \code{lapply} or something). This just
#' applys the \code{hpo_get_term_definition} function to a character vector of terms.
#'
#' @param ontologyId_list A character vector of HPO Ids
#' @param disease_descriptions A data frame of disease descriptions for all HPO Id
#' @retuns A named vector of disease descriptions, with HPO Id as names and descriptions
#' as values.
#' @examples
#' \dontrun{hpo_term_definition_list(HPO_terms_char_vector, Disease_description_df)}
#' @export
hpo_term_definition_list <- function(ontologyId_list, disease_descriptions) {
  term_details <- c()
  for (term in ontologyId_list) {
    term_details[term] <- hpo_get_term_definition(term, disease_descriptions)
  }
  return (term_details)
}