Update do_VolcanoPlot.R

Added rbind call to create 'data.label' for the conditions where 'order_tags_by' == "pvalue" or "logfc"
enblacar · Jul 18, 2024 · 7234410 · 7234410
1 parent 34ce6dc
commit 7234410
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/R/do_VolcanoPlot.R b/R/do_VolcanoPlot.R
@@ -192,6 +192,8 @@ do_VolcanoPlot <- function(sample,
                    dplyr::arrange(dplyr::desc(.data$log_p)) %>%
                    as.data.frame() %>%
                    utils::head(n_genes)
+
+      data.label <- dplyr::bind_rows(data.up, data.down)
     } else if (order_tags_by == "logfc"){
       data.up <- data %>%
                  dplyr::arrange(dplyr::desc(.data$avg_log2FC)) %>%
@@ -202,6 +204,8 @@ do_VolcanoPlot <- function(sample,
                    dplyr::arrange(.data$avg_log2FC) %>%
                    as.data.frame() %>%
                    utils::head(n_genes)
+
+      data.label <- dplyr::bind_rows(data.up, data.down)
     }
 
     if (add_tag_side == "positive") {