Changing how legends are generated if varName is not supplied

R/km.R

@@ -69,7 +69,7 @@ kaplan.meier.plot.gg<-function(x,var,...){
    #need survfit2
 	s1<-ggsurvfit::survfit2(f,data=x)
        
-   varName=set.from.list('varName','NOT GIVEN',...)
+   varName=set.from.list('varName',var,...)
   	tit=base::sprintf('Kaplan-Meier plot by %s',varName)
         
    comment=set.from.list('comment','',...)