Commit 62170e5f63d015054e06f5dd142fcd10c3c28b31
1 parent
b32697f896
Exists in
master
Update to gcnames function
Showing
1 changed file
with
3 additions
and
3 deletions
Show diff stats
RCleanDscret.R
... | ... | @@ -142,10 +142,10 @@ gcnames <- function(DiData,usecol=1){ |
142 | 142 | i = 1 |
143 | 143 | nwnam <- rep("0",length.out=nuruns) |
144 | 144 | for(i in 1:nuruns){ |
145 | - if(length(strsplit(colnames(DiData)[i],"///")[[1]]) >= usecol){ | |
146 | - nwnam[i]=str_trim(strsplit(colnames(DiData)[i],"///")[[1]][usecol]) | |
145 | + if(length(strsplit(colnames(DiData)[i],"///|//")[[1]]) >= usecol){ | |
146 | + nwnam[i]=str_trim(strsplit(colnames(DiData)[i],"///|//")[[1]][usecol]) | |
147 | 147 | } else{ |
148 | - nwnam[i]=str_trim(strsplit(colnames(DiData)[i],"///")[[1]][1]) | |
148 | + nwnam[i]=str_trim(strsplit(colnames(DiData)[i],"///|//")[[1]][1]) | |
149 | 149 | } |
150 | 150 | |
151 | 151 | } |