R/SynonymsProcessor.R

In bhklab/DNFAPI:

getUnique <- function(x){
  aliases <- as.character(drugs_with_ids[x, ])
  aliases <- aliases[!is.na(aliases)]
  aliases <- aliases[!grepl('/', aliases)]
  aliases <- aliases[!grepl('{', aliases, fixed=TRUE)]
  aliases <- aliases[!grepl('[', aliases, fixed=TRUE)]
  aliases <- aliases[!grepl(',', aliases, fixed=TRUE)]
  aliases <- toupper(aliases)
  return(unique(aliases))
}