From 62170e5f63d015054e06f5dd142fcd10c3c28b31 Mon Sep 17 00:00:00 2001 From: Efrain Gonzalez Date: Thu, 22 Jun 2017 12:30:50 -0400 Subject: [PATCH] Update to gcnames function --- RCleanDscret.R | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/RCleanDscret.R b/RCleanDscret.R index 6dd8cd5..9bd6f38 100644 --- a/RCleanDscret.R +++ b/RCleanDscret.R @@ -142,10 +142,10 @@ gcnames <- function(DiData,usecol=1){ i = 1 nwnam <- rep("0",length.out=nuruns) for(i in 1:nuruns){ - if(length(strsplit(colnames(DiData)[i],"///")[[1]]) >= usecol){ - nwnam[i]=str_trim(strsplit(colnames(DiData)[i],"///")[[1]][usecol]) + if(length(strsplit(colnames(DiData)[i],"///|//")[[1]]) >= usecol){ + nwnam[i]=str_trim(strsplit(colnames(DiData)[i],"///|//")[[1]][usecol]) } else{ - nwnam[i]=str_trim(strsplit(colnames(DiData)[i],"///")[[1]][1]) + nwnam[i]=str_trim(strsplit(colnames(DiData)[i],"///|//")[[1]][1]) } } -- 2.29.0