UCSCS name change db to tablename

git-svn-id: file:///home/git/bioc-data.hedgehog.fhcrc.org/trunk/experiment/pkgs/geneLenDataBase@3924 db2202da-8704-0410-b924-b125b3cd84ef
nadiadavidson · Oct 5, 2016 · 7f10fa8 · 7f10fa8
1 parent f5e996f
commit 7f10fa8
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/R/supportedGeneIDs.R b/R/supportedGeneIDs.R
@@ -19,9 +19,9 @@ supportedGeneIDs=function(){
 	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)
 	valid_genomes=sapply(split(repo[,1],repo[,2]),paste,collapse=",")
-	valid_genomes=valid_genomes[which(names(valid_genomes)%in%base$db)]
-	base$AvailableGenomes[match(names(valid_genomes),base$db)]=as.character(valid_genomes)
+	valid_genomes=valid_genomes[which(names(valid_genomes)%in%base$tablename)]
+	base$AvailableGenomes[match(names(valid_genomes),base$tablename)]=as.character(valid_genomes)
 
-  avail = base[base$db == "knownGene" | base$db == "vegaGene" | base$db == "geneSymbol" | base$db == "ensGene",]
+  avail = base[base$tablename == "knownGene" | base$tablename == "vegaGene" | base$tablename == "geneSymbol" | base$tablename == "ensGene",]
   avail
 }