From 2e6c06e863c3d81d69d72ab7b873e8f2f4ce1261 Mon Sep 17 00:00:00 2001
From: Anthony Hawkins <anthony.hawkins@mcri.edu.au>
Date: Wed, 28 Sep 2016 05:50:32 +0000
Subject: [PATCH] Adding extra column

git-svn-id: file:///home/git/bioc-data.hedgehog.fhcrc.org/trunk/experiment/pkgs/geneLenDataBase@3909 db2202da-8704-0410-b924-b125b3cd84ef
---
 R/supportedGeneIDs.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/supportedGeneIDs.R b/R/supportedGeneIDs.R
index 0cb898b..d6174a6 100644
--- a/R/supportedGeneIDs.R
+++ b/R/supportedGeneIDs.R
@@ -14,7 +14,7 @@ supportedGeneIDs=function(){
 	tmp=unlist(lapply(txname2gene_mapinfo[base$db],function(u){u[[2]]}))
 	base$GeneID[match(names(tmp),base$db)]=as.character(tmp)
 	#Add in gene symbol
-	base[nrow(base)+1,]=c("geneSymbol",'refGene','refFlat',"Gene Symbol")
+	base[nrow(base)+1,]=c("geneSymbol",'refGene','refFlat',"Gene Symbol","")
 	base$AvailableGenomes=""
 	repo=grep(".*\\..*\\.LENGTH",as.data.frame(data(package="geneLenDataBase")$results,stringsAsFactors=FALSE)$Item,ignore.case=TRUE,value=TRUE)
 	repo=matrix(unlist(strsplit(repo,"\\.")),ncol=3,byrow=TRUE)
@@ -24,4 +24,4 @@ supportedGeneIDs=function(){
   
   avail = base[base$db == "knownGene" | base$db == "vegaGene" | base$db == "geneSymbol" | base$db == "ensGene",]
   avail
-}
\ No newline at end of file
+}