S3 method consistency

Author: teunbrand

R/add_censor_mark.R

@@ -25,7 +25,7 @@ add_censor_mark <- function(...) {
 }
 
 #' @export
-ggplot_add.add_censor_mark <- function (object, plot, object_name) {
+ggplot_add.add_censor_mark <- function (object, plot, ...) {
   update_add_censor_mark(plot, object)
 }
 

R/add_confidence_interval.R

@@ -31,7 +31,7 @@ add_confidence_interval <- function(type = c("ribbon", "lines"), ...) {
 }
 
 #' @export
-ggplot_add.add_confidence_interval <- function (object, plot, object_name) {
+ggplot_add.add_confidence_interval <- function (object, plot, ...) {
   update_add_confidence_interval(plot, object)
 }
 

R/add_legend_title.R

@@ -19,7 +19,7 @@ add_legend_title <- function(title = NULL) {
 }
 
 #' @export
-ggplot_add.add_legend_title <- function (object, plot, object_name) {
+ggplot_add.add_legend_title <- function (object, plot, ...) {
   update_add_legend_title(plot, object)
 }
 

R/add_pvalue.R

@@ -52,7 +52,7 @@ add_pvalue <- function(location = c("caption", "annotation"),
 }
 
 #' @export
-ggplot_add.add_pvalue <- function (object, plot, object_name) {
+ggplot_add.add_pvalue <- function (object, plot, ...) {
   update_add_pvalue(plot, object)
 }
 

R/add_quantile.R

@@ -37,7 +37,7 @@ add_quantile <- function(y_value = NULL, x_value = NULL, ...) {
 }
 
 #' @export
-ggplot_add.add_quantile <- function (object, plot, object_name) {
+ggplot_add.add_quantile <- function (object, plot, ...) {
   update_add_quantile(plot, object)
 }
 

R/add_risktable.R

@@ -138,7 +138,7 @@ add_risktable <- function(times = NULL,
 }
 
 #' @export
-ggplot_add.add_risktable <- function (object, plot, object_name) {
+ggplot_add.add_risktable <- function (object, plot, .__C__.externalptr) {
   update_add_risktable(plot, object)
 }
 

R/add_risktable_strata_symbol.R

@@ -40,7 +40,7 @@ add_risktable_strata_symbol <- function(symbol = NULL, size = 15, face = "bold",
 }
 
 #' @export
-ggplot_add.add_risktable_strata_symbol <- function (object, plot, object_name) {
+ggplot_add.add_risktable_strata_symbol <- function (object, plot, ...) {
   update_add_risktable_strata_symbol(plot, object)
 }
 

R/scale_ggsurvfit.R

@@ -44,7 +44,7 @@ scale_ggsurvfit <- function(x_scales = list(), y_scales = list()){
 
 
 #' @export
-ggplot_add.scale_ggsurvfit <- function (object, plot, object_name) {
+ggplot_add.scale_ggsurvfit <- function (object, plot, ...) {
   update_scale_ggsurvfit(plot, object)
 }