R/get_gene_name.R

Defines functions get_gene_name

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])
}
Bio-Core/BioCore.Annotation documentation built on Feb. 3, 2020, 6:01 p.m.