hollorol/RBBGCMuso
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix updateMusoMapping bug

Browse Source
This commit is contained in:
hollorol 2018-05-04 10:10:37 +02:00
parent 3f53b26679
commit d672205c6c
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
RBBGCMuso/R/outputMapping.R
View File

@ -12,7 +12,7 @@ updateMusoMapping<-function(output_map_init="output_map_init.c"){
outputRaw<-grep("\\[",readLines(output_map_init,-1),value=TRUE) outputRaw<-grep("\\[",readLines(output_map_init,-1),value=TRUE)
codes <- as.vector(lapply(outputRaw, function (x) as.numeric(unlist(strsplit(unlist(strsplit(x,"\\["))[2],"\\]"))[1]))) codes <- as.vector(lapply(outputRaw, function (x) as.numeric(unlist(strsplit(unlist(strsplit(x,"\\["))[2],"\\]"))[1])))
names <- unlist(lapply(outputRaw, function (x) unlist(strsplit(unlist(strsplit(x,">"))[2],";"))[1])) names <- unlist(lapply(outputRaw, function (x) unlist(strsplit(unlist(strsplit(x,"\\&"))[2],";"))[1]))
mMapping <-cbind(codes,names) mMapping <-cbind(codes,names)
save(mMapping, file="mMap.RData") save(mMapping, file="mMap.RData")
return(mMapping) return(mMapping)