PRONE.Shiny/server.R at main · daisybio/PRONE.Shiny · 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
options(shiny.maxRequestSize=100*1024^2)

# Define server logic required to draw a histogram
server <- function(input, output, session) {

  library(ggplot2)
  library(SummarizedExperiment)
  library(S4Vectors)
  library(PRONE)
  library(data.table)

  # make reactiveValues and server-wide variables
  reactiveVals <- reactiveValues()

  reactiveVals$preprocessingShowed <- FALSE

  options(spinner.color = "#95AAD3")

  spinner <- list(logo = list(spin_loaders(id = 5, color = "#95AAD3")), color="rgb(149, 170, 211, .5)")

  # read all server files
  sapply(list.files("server", full.names = TRUE), source, environment())

  ## set theme for ggplot ##
  old_theme <- theme_get()
  new_theme <- old_theme + theme(axis.text.x = element_text(size = 12),
                                 axis.text.y = element_text(size = 12),
                                 strip.text = element_text(size = 12),
                                 axis.title.x = element_text(size = 12),
                                 axis.title.y = element_text(size = 12),
                                 legend.text = element_text(size = 12),
                                 legend.title = element_text(size = 12),
                                 title = element_text(size = 15)
                                 )
  theme_set(new_theme)

  shinyBS::updateButton(session, inputId = "previousTab", icon = icon("arrow-left"), style = "success")
  shinyBS::updateButton(session, inputId = "nextTab", icon = icon("arrow-right"), style = "success", disabled = FALSE)

  shinyjs::hide("loading")
  waiter_hide()
}