An automated version of RCleanDscret.R

Working on outputting more insightful errors and warnings. (UNTESTED)

An automated version of RCleanDscret.R
Working on outputting more insightful errors and warnings. (UNTESTED)
Efrain Gonzalez
1 parent 837f1e07ad
Showing 1 changed file with 2 additions and 2 deletions Show diff stats
RAutoClDs.R
@@ -190,7 +190,7 @@ THEFT &lt;- function(){
 			genena <- grep("_platform_id",alzword$X1) %>%
 				alzword$X2[.] %>%
 				str_trim(.) %>%
-				paste0("^",.) %>%
+				paste0("^",.,"\\D") %>%
 				grep(.,list.files()) %>%
 				list.files()[.]
  
@@ -479,7 +479,7 @@ THEFT &lt;- function(){
 				genena <- grep("_platform_id",alzword$X1) %>%
 					alzword$X2[.] %>%
 					str_trim(.) %>%
-					paste0("^",.) %>%
+					paste0("^",.,"\\D") %>%
 					grep(.,list.files()) %>%
 					list.files()[.]
...	...	@@ -190,7 +190,7 @@ THEFT <- function(){
190	190	genena <- grep("_platform_id",alzword$X1) %>%
191	191	alzword$X2[.] %>%
192	192	str_trim(.) %>%
193		- paste0("^",.) %>%
	193	+ paste0("^",.,"\\D") %>%
194	194	grep(.,list.files()) %>%
195	195	list.files()[.]
196	196
...	...	@@ -479,7 +479,7 @@ THEFT <- function(){
479	479	genena <- grep("_platform_id",alzword$X1) %>%
480	480	alzword$X2[.] %>%
481	481	str_trim(.) %>%
482		- paste0("^",.) %>%
	482	+ paste0("^",.,"\\D") %>%
483	483	grep(.,list.files()) %>%
484	484	list.files()[.]
485	485