Debug

R/roc.R

@@ -277,7 +277,7 @@ simple.plotROCgg<-function(df,vars,cols,x=0.7,y=0.3,unit="ml",precise="FALSE",ta
          aes_p=ggplot2::aes(x=!!roc_metrics$FPR,y=!!roc_metrics$TPR,color=!!lab)
          g<-g+ggplot2::geom_point(aes_p,size=4,shape=1,show.legend=FALSE)
          colors_used<-base::c(colors_used,!!col)
-         cvalues<-base::c(cvalues,!!lab) 
+         cvalues<-base::c(cvalues,lab) 
          i=i+1
       }