From b47eaa4b6fffa4eae6c7c183f3eddfc42583b49d Mon Sep 17 00:00:00 2001
From: igor <6363505+igordot@users.noreply.github.com>
Date: Wed, 16 Oct 2024 13:35:59 -0400
Subject: [PATCH] Update deprecated parameters

---
 app.R | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/app.R b/app.R
index 180d85e..ad12c19 100644
--- a/app.R
+++ b/app.R
@@ -195,7 +195,8 @@ server <- function(input, output) {
         avg_exp_norm = mean(exp_norm),
         avg_exp_log = mean(exp_log),
         std_dev_norm = sd(exp_norm),
-        std_dev_log = sd(exp_log)
+        std_dev_log = sd(exp_log),
+        .groups = "keep"
       ) %>%
       mutate(
         std_err_norm = std_dev_norm / sqrt(num_cells),
@@ -212,7 +213,7 @@ server <- function(input, output) {
       geom_col(aes(fill = cluster), color = "black", size = 1) +
       geom_errorbar(
         aes(ymin = avg_exp_norm - std_err_norm, ymax = avg_exp_norm + std_err_norm),
-        width = 0.3, size = 1
+        width = 0.3, linewidth = 1
       ) +
       labs(title = input$in_gene, x = "Cluster", y = "Norm. Expr. Level") +
       scale_y_continuous(limits = c(0, y_limit), expand = c(0, 0)) +