DECODER-SC/decoder_results_ui.R at main · Haider6060/DECODER-SC · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
# decoder_results_ui.R
decoder_results_ui <- function(id) {
  ns <- shiny::NS(id)

  shiny::tagList(

    shiny::h1("Results & Downloads"),

    # =========================
    # FIGURES
    # =========================
    shiny::h3("Figures"),

    shiny::fluidRow(
      shiny::column(
        6,
        shiny::actionButton(ns("preview_heatmap"), "Preview Direct Regulatory Discordance Map"),
        shiny::br(), shiny::br(),
        shiny::downloadButton(
          ns("download_heatmap"),
          "Download Direct Regulatory Discordance Map (PNG)"
        )
      ),
      shiny::column(
        6,
        shiny::actionButton(ns("preview_escape_dot"), "Preview Inverse Regulatory Discordance Plot"),
        shiny::br(), shiny::br(),
        shiny::downloadButton(
          ns("download_escape_dot"),
          "Download Inverse Regulatory Discordance Plot (PNG)"
        )
      )
    ),

    shiny::br(),

    # =========================
    # NEW: LOLLIPOP PLOT
    # =========================
    shiny::fluidRow(
      shiny::column(
        6,
        shiny::actionButton(
          ns("preview_lollipop"),
          "Preview TF Discordance Significance Plot"
        ),
        shiny::br(), shiny::br(),
        shiny::downloadButton(
          ns("download_lollipop"),
          "Download TF Discordance Significance Plot (PNG)"
        )
      )
    ),

    shiny::hr(),

    # =========================
    # TABLES
    # =========================
    shiny::h3("Tables (CSV)"),

    shiny::fluidRow(
      shiny::column(
        6,
        shiny::downloadButton(
          ns("download_tf_discordance_summary"),
          "TF Regulatory Discordance Scores (TF-level CSV)"
        )
      ),
      shiny::column(
        6,
        shiny::downloadButton(
          ns("download_tf_gene_discordance_all"),
          "TF–Gene Direct Discordance (ALL pairs CSV)"
        )
      )
    ),

    shiny::br(),

    shiny::fluidRow(
      shiny::column(
        6,
        shiny::downloadButton(
          ns("download_tf_gene_inverse_discordance_all"),
          "TF–Gene Inverse Discordance (ALL pairs CSV)"
        )
      ),
      shiny::column(
        6,
        shiny::downloadButton(
          ns("download_tf_gene_discordance_plot"),
          "TF–Gene Direct Discordance (Top TFs CSV)"
        )
      )
    ),

    shiny::br(),

    shiny::fluidRow(
      shiny::column(
        6,
        shiny::downloadButton(
          ns("download_tf_gene_inverse_discordance_plot"),
          "TF–Gene Inverse Discordance (Top TFs CSV)"
        )
      )
    ),

    shiny::br(),

    # =========================
    # NEW: TF-LEVEL SIGNIFICANCE CSV
    # =========================
    shiny::fluidRow(
      shiny::column(
        6,
        shiny::downloadButton(
          ns("download_tf_discordance_significance"),
          "TF Regulatory Discordance Significance (Permutation + FDR CSV)"
        )
      )
    )

  )
}