From 3254d9e38e8d2288c6bbec1500a2675fec6b16aa Mon Sep 17 00:00:00 2001
From: ihsxa20 <101418381+ihsxa20@users.noreply.github.com>
Date: Thu, 29 Dec 2022 18:43:25 +0530
Subject: [PATCH] Update pathway_analysis.R

---
 R/pathway_analysis.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/pathway_analysis.R b/R/pathway_analysis.R
index aa5e545..082a2a8 100644
--- a/R/pathway_analysis.R
+++ b/R/pathway_analysis.R
@@ -73,7 +73,7 @@ pathway_analysis <- function(x, species = c("human", "mouse")) {
   keggres <- gage::gage(foldchanges, gsets = kegg.sigmet.gs, same.dir = TRUE)
   
   # if plotting then do so here - we plot the top 3 upregulated and downregulated
-  if (plot {
+  if (plot) {
     keggrespathways.up <- data.frame(id = rownames(keggres$greater), keggres$greater) %>%
       tbl_df() %>% 
       filter(row_number() <= 3) %>%