From 7234410286e73619a34c89dddbc11800c8e37127 Mon Sep 17 00:00:00 2001
From: nbpeterson3 <68209187+nbpeterson3@users.noreply.github.com>
Date: Thu, 18 Jul 2024 14:52:54 -0500
Subject: [PATCH] Update do_VolcanoPlot.R

Added rbind call to create 'data.label' for the conditions where 'order_tags_by' == "pvalue" or "logfc"
---
 R/do_VolcanoPlot.R | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/R/do_VolcanoPlot.R b/R/do_VolcanoPlot.R
index 86806ec..94362f2 100644
--- 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") {