From 2bf073a8599d3fc73f05cb2fd144a01ff936a635 Mon Sep 17 00:00:00 2001 From: Efrain Gonzalez Date: Wed, 7 Jun 2017 12:32:53 -0400 Subject: [PATCH] fixed issue with idLOCGPL --- RClean4.R | 2 ++ 1 file changed, 2 insertions(+) diff --git a/RClean4.R b/RClean4.R index b646312..ac84b23 100644 --- a/RClean4.R +++ b/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)) -- 2.29.0