Don't use this code

fixed issue with using GSEfileloc

Don't use this code
fixed issue with using GSEfileloc
Efrain Gonzalez
1 parent 83db0077e4
Showing 1 changed file with 3 additions and 3 deletions Show diff stats
RAutoClDs.R
@@ -176,13 +176,13 @@ THEFT &lt;- function(){
 	#gsub("wd",wd,"Do you want to clean all data files in the directory wd?")
 	numDAT <- switch(EXPR = menu(choices = c("Yes","No"),title = gsub("wd",wd,"Do you want to clean all data files in the directory wd?")) + 1,cat("Nothing done\n"),1L,2L)
 	GSEfileloc <- grep("^GSE.+\\.txt\\.gz$",list.files())
-	
+	GSEfloc <- list.files()[GSEfileloc]
 	#ALL DATA FILES WILL BE CLEANED
 	if(numDAT == 1){
 		#indexing the data files
 		n <- 1	
-		for(n in 1: length(GSEfileloc)){
-			alz <- list.files()[GSEfileloc[n]]
+		for(n in 1: length(GSEfloc)){
+			alz <- GSEfloc[n]
  
 			#Working with the wordy part of the document
 			alzword <- alz %>%
...	...	@@ -176,13 +176,13 @@ THEFT <- function(){
176	176	#gsub("wd",wd,"Do you want to clean all data files in the directory wd?")
177	177	numDAT <- switch(EXPR = menu(choices = c("Yes","No"),title = gsub("wd",wd,"Do you want to clean all data files in the directory wd?")) + 1,cat("Nothing done\n"),1L,2L)
178	178	GSEfileloc <- grep("^GSE.+\\.txt\\.gz$",list.files())
179		-
	179	+ GSEfloc <- list.files()[GSEfileloc]
180	180	#ALL DATA FILES WILL BE CLEANED
181	181	if(numDAT == 1){
182	182	#indexing the data files
183	183	n <- 1
184		- for(n in 1: length(GSEfileloc)){
185		- alz <- list.files()[GSEfileloc[n]]
	184	+ for(n in 1: length(GSEfloc)){
	185	+ alz <- GSEfloc[n]
186	186
187	187	#Working with the wordy part of the document
188	188	alzword <- alz %>%