Update (UNTESTED)

Efrain Gonzalez
1 parent 05d7395375
Showing 1 changed file with 1 additions and 1 deletions Show diff stats
RClean4.R
@@ -277,7 +277,7 @@ if(clfileex == 0){
 	if(soft == FALSE){
 		geneIDNam <- genena %>%
 		read_delim(delim="\t",comment = "#")%>%
-		dplyr::select(.,ID,grep("Symbol|^ORF\\s*$|^gene_assignment\\s*$",colnames(.))
+		dplyr::select(.,ID,grep("Symbol|^ORF\\s*$|^gene_assignment\\s*$",colnames(.)))
 	}
  
 	##Labeling the gene IDs without names
...	...	@@ -277,7 +277,7 @@ if(clfileex == 0){
277	277	if(soft == FALSE){
278	278	geneIDNam <- genena %>%
279	279	read_delim(delim="\t",comment = "#")%>%
280		- dplyr::select(.,ID,grep("Symbol\|^ORF\\s$\|^gene_assignment\\s$",colnames(.))
	280	+ dplyr::select(.,ID,grep("Symbol\|^ORF\\s$\|^gene_assignment\\s$",colnames(.)))
281	281	}
282	282
283	283	##Labeling the gene IDs without names