Efrain Gonzalez / Cleaning and Fixing Data with R

Download as
Browse Code ยป

Commit 62170e5f63d015054e06f5dd142fcd10c3c28b31

Authored by Efrain Gonzalez
1 parent b32697f896
Exists in master

Update to gcnames function

Showing 1 changed file with 3 additions and 3 deletions   Show diff stats
... ... @@ -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 }