HiCrayon/app.R at main · JRowleyLab/HiCrayon · 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
# Global variables and modules used with R
source("global.R")

# Call separate UI components
source("ui/gallery_ui.R", local = TRUE)
source("ui/selectHiCoptions_ui.R", local = TRUE)
source("ui/chiponeOptions_ui.R", local = TRUE)
source("ui/compartment_ui.R", local = TRUE)
source("radiobuttonswithimages.R", local = TRUE)

reticulate::source_python("python/functions.py")

ui <- shinyUI({
  source("ui/ui_shinydashboard.R", local = TRUE)[1]
})

server <- function(input, output, session) {
  source("server/exampleset_server.R", local = TRUE)
  source("server/fileChoose_server.R", local = TRUE)
  source("server/matrixtoobigModal_server.R", local = TRUE)
  source("server/calcDistance_server.R", local = TRUE)
  source("server/processBigwigs_server.R", local = TRUE)
  source("server/plotting_server.R", local = TRUE)
  source("server/readHiCmatrix_server.R", local = TRUE)
  source("server/updateOptions_server.R", local = TRUE)
  source("server/gallery_server.R", local = TRUE)
  source("server/plotCompartments_server.R", local = TRUE)
  source("server/downloadHandler_server.R", local = TRUE)
  source("server/dynamicChIPUI_server.R", local = TRUE)
  source("server/colorLegend_server.R", local = TRUE)
}

shinyApp(ui, server)