From 81a25dae5f9ac90cbb6622ad39777c917d514126 Mon Sep 17 00:00:00 2001
From: github-actions <41898282+github-actions[bot]@users.noreply.github.com>
Date: Mon, 18 Nov 2024 12:42:45 +0000
Subject: [PATCH] [skip style] [skip vbump] Restyle files

---
 R/analyze_variables.R | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

diff --git a/R/analyze_variables.R b/R/analyze_variables.R
index 031762b7c8..392a253f18 100644
--- a/R/analyze_variables.R
+++ b/R/analyze_variables.R
@@ -239,8 +239,10 @@ s_summary.numeric <- function(x,
   y$geom_cv <- c("geom_cv" = sqrt(exp(stats::sd(log(x_no_negative_vals), na.rm = FALSE) ^ 2) - 1) * 100) # styler: off
 
   geom_mean_ci_3d <- c(y$geom_mean, y$geom_mean_ci)
-  y$geom_mean_ci_3d <- formatters::with_label(geom_mean_ci_3d,
-                                              paste0("Geometric Mean (", f_conf_level(control$conf_level), ")"))
+  y$geom_mean_ci_3d <- formatters::with_label(
+    geom_mean_ci_3d,
+    paste0("Geometric Mean (", f_conf_level(control$conf_level), ")")
+  )
 
   y
 }