minor changes web app

DiseaseTranscriptomicsLab · Oct 20, 2023 · 08cc9e6 · 08cc9e6
1 parent 1ea1be2
commit 08cc9e6
Show file tree

Hide file tree

Showing 3 changed files with 11 additions and 9 deletions.
diff --git a/functions_helpers.R b/functions_helpers.R
@@ -1039,8 +1039,7 @@ Heatmap_LoessMEvsAge <- function(age)
 }
 
 Scatter_MEvsAge <- function(MEexpressionData, module, colored, shaped, donorCondition, technicalCondition)
-{
-  #browser()
+{ 
   tmp <- MEexpressionData[MEexpressionData$module == module,]
   tmp$jittered_age <- jitter_ages(tmp$age)
 

diff --git a/server.R b/server.R
@@ -411,7 +411,7 @@ shinyServer(
                                                          symbolStrokeWidth = 4,
                                                          symbolSize = 20,
                                                          symbolStroke = '#4D4D4D',
-                                                         symbol = "menu")))
+                                                         symbol = "menu"))) 
 
     })
 

diff --git a/ui.R b/ui.R
@@ -361,8 +361,11 @@ shinyUI(fluidPage(
                                                                                    column(width = 12, 
                                                                                           tags$h4("Disease enrichment"),
                                                                                           conditionalPanel(condition = "input.selectedModule == 'All modules' && input.diseaseMethod == 'DisGeNET'",
-                                                                                                           HTML("The significance of the module’s enrichment in <a href='https://www.disgenet.org/search' target='_blank'>DisGeNET</a> gene-disease associations (from the <code>CURATED</code> set) is calculated with the disgenet2r package <a href='https://www.disgenet.org/static/disgenet2r/disgenet2r.html' target='_blank'>(Piñero et al.)</a>.
-                                                                                               <br>P-values were corrected for multiple testing with Benjamini-Hochberg’s FDR."),
+                                                                                                           HTML("The significance of the module’s enrichment in <a href='https://www.disgenet.org/search' 
+                                                                                                           target='_blank'>DisGeNET</a> gene-disease associations (from the <code>CURATED</code> set) 
+                                                                                                           is calculated with the disgenet2r package <a href='https://www.disgenet.org/static/disgenet2r/disgenet2r.html' 
+                                                                                                           target='_blank'>(Piñero et al.)</a>.
+                                                                                                           P-values were corrected for multiple testing with Benjamini-Hochberg’s FDR."),
                                                                                                            withSpinner(highchartOutput("Heatmap_moduleDiseaseEnrichment_All", height = "600px"), 
                                                                                                                        color = "#2C3E50", type = 5, size = 0.5)
                                                                                           ),
@@ -423,10 +426,10 @@ shinyUI(fluidPage(
                                              )
                                    )
                                  ))
-             ),
-             tabPanel("Tutorial", 
-                      icon = icon("file-text"),
-                      tags$iframe(style="height:800px; width:100%", src="tuto.pdf"))
+             )#,
+            #tabPanel("Tutorial", 
+                     # icon = icon("file-text"),
+                     # tags$iframe(style="height:800px; width:100%", src="voyAGEr-WebAppTutorial.html"))
   )