fix errors

insightsengineering · Jul 23, 2024 · 2f9af9c · 2f9af9c
1 parent 1e69760
commit 2f9af9c
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 8 deletions.
diff --git 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
@@ -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
@@ -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 ---------