diff --git a/R/g_lineplot.R b/R/g_lineplot.R index 59c5b46964..a234e835b3 100644 --- a/R/g_lineplot.R +++ b/R/g_lineplot.R @@ -182,9 +182,10 @@ g_lineplot <- function(df, } extra_args <- list(...) - if ("control" %in% names(extra_args) && - (!is.null(table) && all(table_labels == get_labels_from_stats(table)))) { - table_labels <- table_labels %>% labels_use_control(extra_args[["control"]]) + if ("control" %in% names(extra_args)) { + if (!is.null(table) && all(table_labels == get_labels_from_stats(table))) { + table_labels <- table_labels %>% labels_use_control(extra_args[["control"]]) + } } if (is.character(interval)) { diff --git a/R/summarize_glm_count.R b/R/summarize_glm_count.R index 2a09175b6c..8c45995b09 100644 --- a/R/summarize_glm_count.R +++ b/R/summarize_glm_count.R @@ -186,7 +186,7 @@ s_glm_count <- function(df, distribution = distribution, weights ) - browser() + if (rate_mean_method == "emmeans") { emmeans_smry <- summary(results$emmeans_fit, level = conf_level) } else if (rate_mean_method == "ppmeans") { diff --git a/R/utils_default_stats_formats_labels.R b/R/utils_default_stats_formats_labels.R index 3b68779e8e..ee123fb689 100644 --- a/R/utils_default_stats_formats_labels.R +++ b/R/utils_default_stats_formats_labels.R @@ -492,10 +492,8 @@ tern_default_labels <- c( geom_cv = "CV % Geometric Mean", pval = "p-value (t-test)", # Default for numeric pval_counts = "p-value (chi-squared test)", # Default for counts - rate = "Adjusted Rate", - # rate_ci = f_conf_level(conf_level), # to handle better - rate_ratio = "Adjusted Rate Ratio" - # rate_ratio_ci = f_conf_level(conf_level) # to handle better + rate = "Adjusted Rate", # rate_ci = f_conf_level(conf_level), # to handle better + rate_ratio = "Adjusted Rate Ratio" # rate_ratio_ci = f_conf_level(conf_level) # to handle better ) # To deprecate ---------