From ff80c4019b27eab228e82267be33bff0aeb9c1b4 Mon Sep 17 00:00:00 2001 From: Chen Yang Date: Thu, 12 Sep 2024 23:13:59 -0500 Subject: [PATCH] Update generate_alpha_per_time_dotplot_long.R --- R/generate_alpha_per_time_dotplot_long.R | 2 ++ 1 file changed, 2 insertions(+) diff --git a/R/generate_alpha_per_time_dotplot_long.R b/R/generate_alpha_per_time_dotplot_long.R index fe63159..6e3cb91 100644 --- 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){