Potential fix for pull request finding

Co-authored-by: Copilot Autofix powered by AI <175728472+Copilot@users.noreply.github.com>

Author: stjeske

R/mod_graph.R

@@ -779,13 +779,13 @@ mod_graph_server <- function(
         background_color = dplyr::case_when(
           substr(ColorPoints(),1,7) != substr(font.col, 1,7) ~ substr(font.col, 1,7),
           substr(ColorPoints(),1,7) == substr(font.col, 1,7) ~ ""
-        ),
+        )
       ) %>%
       dplyr::rowwise() %>%
       dplyr::mutate(
         font.col2 = dplyr::case_when(
           substr(ColorPoints(),1,7) != substr(font.col, 1,7) ~ font_color(font.col),
-          substr(ColorPoints(),1,7) == substr(font.col, 1,7) ~ substr(font.col,1,7)
+          substr(ColorPoints(),1,7) == substr(font.col,1,7) ~ substr(font.col,1,7)
         )
       ) %>% 
       dplyr::ungroup() %>%