Browse code

fixing the usage of reactive element after aggregating the scores on the fly

Federico Marini authored on 19/05/2022 17:50:05
Showing 1 changed files

... ...
@@ -330,7 +330,7 @@ GeneTonic <- function(dds = NULL,
330 330
             uiOutput("ui_panel_welcome")
331 331
           )
332 332
           # ,
333
-          # verbatimTextOutput("gtl_described")
333
+          # verbatimTextOutput("gtl_debug")
334 334
         ),
335 335
 
336 336
         # ui panel geneset-gene ---------------------------------------------------
... ...
@@ -566,6 +566,10 @@ GeneTonic <- function(dds = NULL,
566 566
       describe_gtl(reactive_values$in_gtl)
567 567
     })
568 568
 
569
+    # output$gtl_debug <- renderPrint({
570
+    #   head(reactive_values$res_enhanced())
571
+    # })
572
+    
569 573
     output$ui_panel_welcome <- renderUI({
570 574
       validate(
571 575
         need(!is.null(reactive_values$gtl) ,
... ...
@@ -1883,14 +1887,7 @@ GeneTonic <- function(dds = NULL,
1883 1887
 
1884 1888
     output$gs_summaryoverview <- renderPlot({
1885 1889
       gs_summary_overview(
1886
-        res_enrich = reactive_values$res_enhanced,
1887
-        n_gs = input$n_genesets
1888
-      )
1889
-    })
1890
-
1891
-    output$gs_summaryoverview_pair <- renderPlot({
1892
-      gs_summary_overview_pair(
1893
-        res_enrich = reactive_values$res_enhanced,
1890
+        res_enrich = reactive_values$res_enhanced(),
1894 1891
         n_gs = input$n_genesets
1895 1892
       )
1896 1893
     })
... ...
@@ -1904,14 +1901,14 @@ GeneTonic <- function(dds = NULL,
1904 1901
 
1905 1902
     output$gs_summaryradar <- renderPlotly({
1906 1903
       gs_radar(
1907
-        res_enrich = reactive_values$res_enhanced,
1904
+        res_enrich = reactive_values$res_enhanced(),
1908 1905
         n_gs = input$n_genesets
1909 1906
       )
1910 1907
     })
1911 1908
 
1912 1909
     output$gs_dendro <- renderPlot({
1913 1910
       gs_dendro(
1914
-        res_enrich = reactive_values$res_enhanced,
1911
+        res_enrich = reactive_values$res_enhanced(),
1915 1912
         n_gs = input$n_genesets
1916 1913
       )
1917 1914
     })