Annot GPL files may be read (UNTESTED)

Efrain Gonzalez
1 parent 498d25a3e5
Showing 1 changed file with 1 additions and 1 deletions Show diff stats
RClean4.R
@@ -172,7 +172,7 @@ genena &lt;- file.choose()
 soft <- strsplit(genena,"[\\|/]") %>%
 	.[[1]] %>%
 	.[length(.)] %>%
-	grepl("soft",.)
+	grepl("soft|annot",.)
  
 #Working with the wordy part of the document
 alzword <- alz %>%
...	...	@@ -172,7 +172,7 @@ genena <- file.choose()
172	172	soft <- strsplit(genena,"[\\\|/]") %>%
173	173	.[[1]] %>%
174	174	.[length(.)] %>%
175		- grepl("soft",.)
	175	+ grepl("soft\|annot",.)
176	176
177	177	#Working with the wordy part of the document
178	178	alzword <- alz %>%