Merge pull request #1 from mattgarner/develop

Removed 'M-BM-' characters
RahmanTeam · Dec 19, 2016 · 41752f7 · 41752f7
2 parents 427fbe6 + 4396960
commit 41752f7
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 6 deletions.
diff --git a/Linux/shinyGUI/server.R b/Linux/shinyGUI/server.R
@@ -329,7 +329,7 @@ shinyServer(function(input, output) {
 		levels(Data1$testref)=c("Test Sample","Reference Sample","Affected exon")
 		new_cols=c("blue","gray","red")
 
-                A1<-ggplot(data=Data1,aes(x=exonRange,y=value,group=variable,colour=testref)) 
+                A1<-ggplot(data=Data1,aes(x=exonRange,y=value,group=variable,colour=testref))
                 A1<-A1 + geom_point(cex=2.5,lwd=1.5) 
                 A1<-A1 + scale_colour_manual(values=new_cols)  
                 A1<-A1 + geom_line(data=subset(Data1,testref=="Reference Sample"),lty="dashed",lwd=1.5,col="grey") 
@@ -378,7 +378,7 @@ shinyServer(function(input, output) {
 		    levels(Data1$testref)=c("Test Sample","Reference Sample","Affected exon")
     		    new_cols=c("blue","gray","red")
 
-                    A1<-ggplot(data=Data1,aes(x=exonRange,y=value,group=variable,colour=testref))  
+                    A1<-ggplot(data=Data1,aes(x=exonRange,y=value,group=variable,colour=testref))
                     A1<-A1 + geom_point(cex=2.5,lwd=1.5) 
                     A1<-A1 + scale_colour_manual(values=new_cols)  
                     A1<-A1 + geom_line(data=subset(Data1,testref=="Reference Sample"),lty="dashed",lwd=1.5,col="grey") 
@@ -426,7 +426,7 @@ shinyServer(function(input, output) {
 		    levels(Data1$testref)=c("Test Sample","Affected exon")
 		    new_cols=c("blue","red")
 
-                    A1<-ggplot(data=Data1,aes(x=exonRange,y=value,group=variable,colour=testref))  
+                    A1<-ggplot(data=Data1,aes(x=exonRange,y=value,group=variable,colour=testref))
                     A1<-A1 + geom_point(cex=2.5,lwd=1.5) 
                     A1<-A1 + scale_colour_manual(values=new_cols) 
                     A1<-A1 + geom_line(data=subset(Data1,testref=="Test Sample"),lty="dashed",lwd=1.5,col="blue") 

diff --git a/Windows/scripts/shinyGUI/server.R b/Windows/scripts/shinyGUI/server.R
@@ -329,7 +329,7 @@ shinyServer(function(input, output) {
 		levels(Data1$testref)=c("Test Sample","Reference Sample","Affected exon")
 		new_cols=c("blue","gray","red")
 
-                A1<-ggplot(data=Data1,aes(x=exonRange,y=value,group=variable,colour=testref)) 
+                A1<-ggplot(data=Data1,aes(x=exonRange,y=value,group=variable,colour=testref))
                 A1<-A1 + geom_point(cex=2.5,lwd=1.5) 
                 A1<-A1 + scale_colour_manual(values=new_cols)  
                 A1<-A1 + geom_line(data=subset(Data1,testref=="Reference Sample"),lty="dashed",lwd=1.5,col="grey") 
@@ -378,7 +378,7 @@ shinyServer(function(input, output) {
 		    levels(Data1$testref)=c("Test Sample","Reference Sample","Affected exon")
     		    new_cols=c("blue","gray","red")
 
-                    A1<-ggplot(data=Data1,aes(x=exonRange,y=value,group=variable,colour=testref))  
+                    A1<-ggplot(data=Data1,aes(x=exonRange,y=value,group=variable,colour=testref))
                     A1<-A1 + geom_point(cex=2.5,lwd=1.5) 
                     A1<-A1 + scale_colour_manual(values=new_cols)  
                     A1<-A1 + geom_line(data=subset(Data1,testref=="Reference Sample"),lty="dashed",lwd=1.5,col="grey") 
@@ -426,7 +426,7 @@ shinyServer(function(input, output) {
 		    levels(Data1$testref)=c("Test Sample","Affected exon")
 		    new_cols=c("blue","red")
 
-                    A1<-ggplot(data=Data1,aes(x=exonRange,y=value,group=variable,colour=testref))  
+                    A1<-ggplot(data=Data1,aes(x=exonRange,y=value,group=variable,colour=testref))
                     A1<-A1 + geom_point(cex=2.5,lwd=1.5) 
                     A1<-A1 + scale_colour_manual(values=new_cols) 
                     A1<-A1 + geom_line(data=subset(Data1,testref=="Test Sample"),lty="dashed",lwd=1.5,col="blue")