fixed issue with idLOCGPL

Efrain Gonzalez
1 parent b3a9771637
Showing 1 changed file with 2 additions and 0 deletions Show diff stats
RClean4.R
@@ -248,6 +248,7 @@ if(clfileex == 0){
 				idLOCGPL <- genena %>%
 					read_delim(delim="\t",col_names = FALSE, comment = "!", n_max = 1000) %>%
 					t(.) %>%
+					.[1,] %>%
 					grep("^ID\\s*$",.) %>%
 					-1
 				cbind(as.integer(gplnum),as.integer(idLOCGPL)) %>%
@@ -262,6 +263,7 @@ if(clfileex == 0){
 			idLOCGPL <- genena %>%
 				read_delim(delim="\t",col_names = FALSE, comment = "!", n_max = 1000) %>%
 				t(.) %>%
+				.[1,] %>%
 				grep("^ID\\s*$",.) %>%
 				-1
 			Firstval <- cbind(as.integer(gplnum),as.integer(idLOCGPL))
...	...	@@ -248,6 +248,7 @@ if(clfileex == 0){
248	248	idLOCGPL <- genena %>%
249	249	read_delim(delim="\t",col_names = FALSE, comment = "!", n_max = 1000) %>%
250	250	t(.) %>%
	251	+ .[1,] %>%
251	252	grep("^ID\\s*$",.) %>%
252	253	-1
253	254	cbind(as.integer(gplnum),as.integer(idLOCGPL)) %>%
...	...	@@ -262,6 +263,7 @@ if(clfileex == 0){
262	263	idLOCGPL <- genena %>%
263	264	read_delim(delim="\t",col_names = FALSE, comment = "!", n_max = 1000) %>%
264	265	t(.) %>%
	266	+ .[1,] %>%
265	267	grep("^ID\\s*$",.) %>%
266	268	-1
267	269	Firstval <- cbind(as.integer(gplnum),as.integer(idLOCGPL))