Update generate_alpha_per_time_dotplot_long.R

cafferychen777 · Sep 13, 2024 · ff80c40 · ff80c40
1 parent 80eef07
commit ff80c40
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/R/generate_alpha_per_time_dotplot_long.R b/R/generate_alpha_per_time_dotplot_long.R
@@ -122,7 +122,9 @@ generate_alpha_per_time_dotplot_long <- function(data.obj,
   # Replace the existing theme selection code with this:
   theme_to_use <- mStat_get_theme(theme.choice, custom.theme)
 
+  # Filter group names to only include those with "vs"
   group.names <- names(test.list[[1]])
+  group.names <- group.names[grep("vs", group.names)]
 
   test.list <- lapply(group.names, function(group.names){