From f7fc7abaa80206f2b03d583352aea7efdf5b1840 Mon Sep 17 00:00:00 2001
From: Lea Seep <74967328+LeaSeep@users.noreply.github.com>
Date: Wed, 23 Nov 2022 09:27:29 +0100
Subject: [PATCH] specify namespace for gather (#71)

---
 program/shinyApp/R/pca/server.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/program/shinyApp/R/pca/server.R b/program/shinyApp/R/pca/server.R
index 2a123800..30d7929d 100644
--- a/program/shinyApp/R/pca/server.R
+++ b/program/shinyApp/R/pca/server.R
@@ -526,7 +526,7 @@ pca_Server <- function(id, omic_type, row_select){
         entitiesToInclude <- apply(df_loadings_filtered, 1, any)
         
         df_loadings <- df_loadings[entitiesToInclude,] %>%
-          gather(key = "PC", value = "loading", -entity)
+          tidyr::gather(key = "PC", value = "loading", -entity)
         
         global_max <- max(df_loadings$loading)
         global_min <- -global_max