From 357e1e2ac9f3aa8001036541bb71fe59301ea95b Mon Sep 17 00:00:00 2001 From: Daniel Date: Thu, 17 Aug 2023 13:10:12 +0200 Subject: [PATCH] avoid S3 name --- R/helpfunctions.R | 6 +++--- R/plot_xtab.R | 2 +- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/R/helpfunctions.R b/R/helpfunctions.R index 2e767267..9f0d843a 100644 --- a/R/helpfunctions.R +++ b/R/helpfunctions.R @@ -39,9 +39,9 @@ get_dplyr_dot_data <- function(x, qs) { # add annotations with table summary # here we print out total N of cases, chi-square and significance of the table -print.table.summary <- function(baseplot, - modsum, - summary.pos = "r") { +.print.table.summary <- function(baseplot, + modsum, + summary.pos = "r") { if (!is.null(modsum)) { # add annotations with table summary # here we print out total N of cases, chi-square and significance of the table diff --git a/R/plot_xtab.R b/R/plot_xtab.R index 4b8742b6..c558d4ca 100644 --- a/R/plot_xtab.R +++ b/R/plot_xtab.R @@ -436,7 +436,7 @@ plot_xtab <- function(x, # ------------------------------------------ # check whether table summary should be printed # ------------------------------------------ - baseplot <- print.table.summary(baseplot, modsum, summary.pos) + baseplot <- .print.table.summary(baseplot, modsum, summary.pos) baseplot <- baseplot + # show absolute and percentage value of each bar. ggvaluelabels +