get_gene_name <- function(x) {
deleterious_change <- unlist(strsplit(x=x, split=",", perl=TRUE))[1]
gene_name <- unlist(strsplit(x=deleterious_change, split=':', perl=TRUE))
return(gene_name[1])
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.