Allow adjustment of p value location via my.y in kaplan.meier.plot.gg

R/km.R

@@ -124,7 +124,7 @@ kaplan.meier.plot.gg<-function(x,var,...){
    my.title=set.from.list('my.title',tit,...)
    my.n=set.from.list('my.n',2,...)
    my.ylab=set.from.list('my.ylab',ylab,...)
-      
+   my.y=set.from.list('my.y',0.1,...)    
    
    
    base::print(base::sprintf('my.n=%f',my.n))
@@ -161,7 +161,8 @@ kaplan.meier.plot.gg<-function(x,var,...){
     q<-ggsurvfit::ggsurvfit(s1,lwd=1.0,censor=TRUE,censor.shape='+',censor.size=10)+
          ggplot2::ylim(0,1)+
    	   ggsurvfit::add_legend_title(my.legend.title)+
-   		ggsurvfit::add_pvalue("annotation", size = 5)+
+   		ggsurvfit::add_pvalue("annotation", size = 5,y=my.y)+
+   		#ggsurvfit::add_pvalue("caption", size = 5)+
         #add_pvalue("caption", size = 5)+
          ggsurvfit::add_confidence_interval()+
    		#add_risktable()+