vignettes/EBKM-helpers.R

In TKCat: Tailored Knowledge Catalog

###############################################################################@
#' Get reference URLs of biological tissues
#' 
#' @param ids tissue identifiers
#' @param reference reference database (default: "Uberon")
#' 
#' @return URLs corresponding to provided ids
#'   
#' @export
#' 
get_tissue_ref_url <- function(ids, reference="Uberon"){
   reference <- match.arg(reference)
   url_templates <- c("Uberon"="https://purl.obolibrary.org/obo/%s")
   return(sprintf(url_templates[reference], ids))
}