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))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.