Adding extra column

git-svn-id: file:///home/git/bioc-data.hedgehog.fhcrc.org/trunk/experiment/pkgs/geneLenDataBase@3909 db2202da-8704-0410-b924-b125b3cd84ef
nadiadavidson · Sep 28, 2016 · 2e6c06e · 2e6c06e
1 parent 4549278
commit 2e6c06e
Showing 1 changed file with 2 additions and 2 deletions.
diff --git 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
-}
+}