Fixing if/else cases for new columns

benjamin-james · benjamin-james · commit 9fd0874ef684 · 2025-06-30T15:57:18.000-04:00
diff --git a/R/go.R b/R/go.R
@@ -67,6 +67,8 @@ enrichALL_Excel <- function(xlsx, new_sheet, OrgDb, method, gene_col="gene",
       if (nrow(df) > 0) {
         df$log2FC=min_log2FC
         df$FDR=max_FDR
+        df$mlog10p.adjust <- -log10(df$p.adjust)
+        df$DescID <- paste0(df$Description, " (", df$ID, ")")
       }
     }
     if (nrow(df) > 0) {

Original file line number	Diff line number	Diff line change
`@@ -67,6 +67,8 @@ enrichALL_Excel <- function(xlsx, new_sheet, OrgDb, method, gene_col="gene",`
`67`	`67`	`if (nrow(df) > 0) {`
`68`	`68`	`df$log2FC=min_log2FC`
`69`	`69`	`df$FDR=max_FDR`
	`70`	`+ df$mlog10p.adjust <- -log10(df$p.adjust)`
	`71`	`+ df$DescID <- paste0(df$Description, " (", df$ID, ")")`
`70`	`72`	`}`
`71`	`73`	`}`
`72`	`74`	`if (nrow(df) > 0) {`