From e53c3c590875d03bcbff0937982b292bfe67c94c Mon Sep 17 00:00:00 2001 From: Efrain Gonzalez Date: Fri, 16 Jun 2017 14:51:31 -0400 Subject: [PATCH] An automated version of RCleanDscret.R Working on outputting more insightful errors and warnings. (UNTESTED) --- RAutoClDs.R | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/RAutoClDs.R b/RAutoClDs.R index 49ea334..0ae7af1 100644 --- a/RAutoClDs.R +++ b/RAutoClDs.R @@ -190,7 +190,7 @@ THEFT <- function(){ genena <- grep("_platform_id",alzword$X1) %>% alzword$X2[.] %>% str_trim(.) %>% - paste0("^",.) %>% + paste0("^",.,"\\D") %>% grep(.,list.files()) %>% list.files()[.] @@ -479,7 +479,7 @@ THEFT <- function(){ genena <- grep("_platform_id",alzword$X1) %>% alzword$X2[.] %>% str_trim(.) %>% - paste0("^",.) %>% + paste0("^",.,"\\D") %>% grep(.,list.files()) %>% list.files()[.] -- 2.29.0