... | ... |
@@ -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 |
}) |