From 77a0d64ff05e500f7e8ce62ee77861c5ec72b0b3 Mon Sep 17 00:00:00 2001
From: Efrain Gonzalez <egonz340@fiu.edu>
Date: Thu, 2 Nov 2017 10:30:39 -0400
Subject: [PATCH] Updated: Added |^GENE_SYMBOL$ to glossary

---
 RAutoClDs.R | 16 ++++++++--------
 1 file changed, 8 insertions(+), 8 deletions(-)

diff --git a/RAutoClDs.R b/RAutoClDs.R
index 78bd116..e26d4d7 100644
--- a/RAutoClDs.R
+++ b/RAutoClDs.R
@@ -264,7 +264,7 @@ THEFT <- function(){
 									.[IDLOCAL]
 							geneIDNam <- genena %>%
 								read_delim(delim="\t",col_names = TRUE, comment = "!", skip = idlocgpl) %>%
-								dplyr::select(.,ID,grep("Symbol|^ORF\\s*$|^gene_assignment\\s*$|^Gene symbol$",colnames(.)))
+								dplyr::select(.,ID,grep("Symbol|^ORF\\s*$|^gene_assignment\\s*$|^Gene symbol$|^GENE_SYMBOL$",colnames(.)))
 						} else if(IDF == 0){
 							#No information on this particular GPL file
 							idLOCGPL <- genena %>%
@@ -276,7 +276,7 @@ THEFT <- function(){
 								cat(file="GPL_ID_LOC.txt",sep = "\t", fill = TRUE, append = TRUE)
 							geneIDNam <- genena %>%
 								read_delim(delim="\t",col_names = TRUE, comment = "!", skip = idLOCGPL) %>%
-								dplyr::select(.,ID,grep("Symbol|^ORF\\s*$|^gene_assignment\\s*$|^Gene symbol$",colnames(.)))
+								dplyr::select(.,ID,grep("Symbol|^ORF\\s*$|^gene_assignment\\s*$|^Gene symbol$|^GENE_SYMBOL$",colnames(.)))
 						}
 					} else if(fileex == 0){
 						#We must create a file that we can access for later use
@@ -290,12 +290,12 @@ THEFT <- function(){
 						write.table(Firstval,file = "GPL_ID_LOC.txt", sep = "\t",row.names = FALSE, col.names = TRUE)
 						geneIDNam <- genena %>%
 							read_delim(delim="\t",col_names = TRUE, comment = "!", skip = idLOCGPL) %>%
-							dplyr::select(.,ID,grep("Symbol|^ORF\\s*$|^gene_assignment\\s*$|^Gene symbol$",colnames(.)))
+							dplyr::select(.,ID,grep("Symbol|^ORF\\s*$|^gene_assignment\\s*$|^Gene symbol$|^GENE_SYMBOL$",colnames(.)))
 					}
 	 			} else if(soft == FALSE){
 					geneIDNam <- genena %>%
 						read_delim(delim="\t",comment = "#")%>%
-						dplyr::select(.,ID,grep("Symbol|^ORF\\s*$|^gene_assignment\\s*$|^Gene symbol$",colnames(.)))
+						dplyr::select(.,ID,grep("Symbol|^ORF\\s*$|^gene_assignment\\s*$|^Gene symbol$|^GENE_SYMBOL$",colnames(.)))
 				}
 				
 				##Labeling the gene IDs without names
@@ -565,7 +565,7 @@ THEFT <- function(){
 										.[IDLOCAL]
 								geneIDNam <- genena %>%
 									read_delim(delim="\t",col_names = TRUE, comment = "!", skip = idlocgpl) %>%
-									dplyr::select(.,ID,grep("Symbol|^ORF\\s*$|^gene_assignment\\s*$|^Gene symbol$",colnames(.)))
+									dplyr::select(.,ID,grep("Symbol|^ORF\\s*$|^gene_assignment\\s*$|^Gene symbol$|^GENE_SYMBOL$",colnames(.)))
 							} else if(IDF == 0){
 								#No information on this particular GPL file
 								idLOCGPL <- genena %>%
@@ -577,7 +577,7 @@ THEFT <- function(){
 									cat(file="GPL_ID_LOC.txt",sep = "\t", fill = TRUE, append = TRUE)
 								geneIDNam <- genena %>%
 									read_delim(delim="\t",col_names = TRUE, comment = "!", skip = idLOCGPL) %>%
-									dplyr::select(.,ID,grep("Symbol|^ORF\\s*$|^gene_assignment\\s*$|^Gene symbol$",colnames(.)))
+									dplyr::select(.,ID,grep("Symbol|^ORF\\s*$|^gene_assignment\\s*$|^Gene symbol$|^GENE_SYMBOL$",colnames(.)))
 							}
 						} else if(fileex == 0){
 							#We must create a file that we can access for later use
@@ -591,12 +591,12 @@ THEFT <- function(){
 							write.table(Firstval,file = "GPL_ID_LOC.txt", sep = "\t",row.names = FALSE, col.names = TRUE)
 							geneIDNam <- genena %>%
 								read_delim(delim="\t",col_names = TRUE, comment = "!", skip = idLOCGPL) %>%
-								dplyr::select(.,ID,grep("Symbol|^ORF\\s*$|^gene_assignment\\s*$|^Gene symbol$",colnames(.)))
+								dplyr::select(.,ID,grep("Symbol|^ORF\\s*$|^gene_assignment\\s*$|^Gene symbol$|^GENE_SYMBOL$",colnames(.)))
 						}
 		 			} else if(soft == FALSE){
 						geneIDNam <- genena %>%
 							read_delim(delim="\t",comment = "#")%>%
-							dplyr::select(.,ID,grep("Symbol|^ORF\\s*$|^gene_assignment\\s*$|^Gene symbol$",colnames(.)))
+							dplyr::select(.,ID,grep("Symbol|^ORF\\s*$|^gene_assignment\\s*$|^Gene symbol$|^GENE_SYMBOL$",colnames(.)))
 					}
 					
 					##Labeling the gene IDs without names
-- 
2.29.0