added library tidyr for separate_rows

saezlab · Oct 31, 2024 · b0d28df · b0d28df
1 parent a422368
commit b0d28df
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/R/MetaDataAnalysis.R b/R/MetaDataAnalysis.R
@@ -191,13 +191,13 @@ MetaAnalysis <- function(InputData,
    ## ---------- DF 2: Metabolites as row names ------------##
    Res_Top <- Stat_results%>%
      filter(tukeyHSD_p.adjusted< StatCutoff)%>%
-     separate_rows(paste("Features_", "(Top", Percentage, "%)", sep=""), sep = ", ")%>% # Separate 'Features (Top 0.1%)'
+     tidyr::separate_rows(paste("Features_", "(Top", Percentage, "%)", sep=""), sep = ", ")%>% # Separate 'Features (Top 0.1%)'
      dplyr::rename("FeatureID":= paste("Features_", "(Top", Percentage, "%)", sep=""))%>%
      select(- paste("Features_", "(Bottom", Percentage, "%)", sep=""))
 
    Res_Bottom <- Stat_results%>%
      filter(tukeyHSD_p.adjusted< StatCutoff)%>%
-     separate_rows(paste("Features_", "(Bottom", Percentage, "%)", sep=""), sep = ", ")%>%    # Separate 'Features (Bottom 0.1%)'
+     tidyr::separate_rows(paste("Features_", "(Bottom", Percentage, "%)", sep=""), sep = ", ")%>%    # Separate 'Features (Bottom 0.1%)'
      dplyr::rename("FeatureID":= paste("Features_", "(Bottom", Percentage, "%)", sep=""))%>%
      select(- paste("Features_", "(Top", Percentage, "%)", sep=""))
 

diff --git a/vignettes/Metadata Analysis.Rmd b/vignettes/Metadata Analysis.Rmd
@@ -58,6 +58,7 @@ library(MetaProViz)
 library(magrittr)
 library(dplyr)
 library(rlang)
+library(tidyr)
 
 #Please install the Biocmanager Dependencies:
 #BiocManager::install("clusterProfiler")