From d672205c6c5ab2d7c951cd6b270ee0eb4e9b03ab Mon Sep 17 00:00:00 2001 From: hollorol Date: Fri, 4 May 2018 10:10:37 +0200 Subject: [PATCH] fix updateMusoMapping bug --- RBBGCMuso/R/outputMapping.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/RBBGCMuso/R/outputMapping.R b/RBBGCMuso/R/outputMapping.R index 7e26a19..5189f8b 100644 --- a/RBBGCMuso/R/outputMapping.R +++ b/RBBGCMuso/R/outputMapping.R @@ -12,7 +12,7 @@ updateMusoMapping<-function(output_map_init="output_map_init.c"){ 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]))) - 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) save(mMapping, file="mMap.RData") return(mMapping)