-
Notifications
You must be signed in to change notification settings - Fork 1
Expand file tree
/
Copy pathglobal.R
More file actions
76 lines (67 loc) · 1.83 KB
/
global.R
File metadata and controls
76 lines (67 loc) · 1.83 KB
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
# Set repositories to include both CRAN and Bioconductor
if (!requireNamespace("BiocManager", quietly = TRUE)) {
options(repos = c(CRAN = "https://cloud.r-project.org/"))
install.packages("BiocManager")
}
options(repos = BiocManager::repositories())
# IMPORTANT: renv::restore() disabled for Docker deployments
# Packages are installed during Docker image build, not at runtime
# If running locally (non-Docker), uncomment the line below:
# renv::restore()
# Docker runtime diagnostics (only runs in containerized environment)
if (file.exists("/.dockerenv")) {
cat("\n=== miRQuest Docker Runtime ===\n")
cat("Working directory:", getwd(), "\n")
cat("Library paths:", paste(.libPaths(), collapse = "\n "), "\n")
cat("R version:", R.version.string, "\n")
cat("Container startup time:", Sys.time(), "\n")
cat("================================\n\n")
}
library(renv)
library(shiny)
library(vroom)
library(dplyr)
library(tidyverse)
library(miRNAtap)
library(miRNAtap.db)
library(topGO)
library(org.Hs.eg.db)
library(org.Mm.eg.db)
library(DESeq2)
library(ggplot2)
library(EnhancedVolcano)
library(cowplot)
library(circlize)
library(biomaRt)
library(paletteer)
library(cowplot)
library(edgeR)
library(pheatmap)
library(limma)
library(clusterProfiler)
library(ggraph)
library(igraph)
library(reactome.db)
library(ReactomePA)
library(bslib)
library(here)
library(DT)
library(plotly)
library(visNetwork)
if (!requireNamespace("shinyjs", quietly = TRUE)) {
install.packages("shinyjs")
}
library(shinyjs)
# Increase max upload size
options(shiny.maxRequestSize = 500 * 1024^2)
# Source all R scripts in the scripts directory
scripts_to_source <-
list.files(
path = "Utility_Functions",
pattern = "\\.R$",
full.names = TRUE
)
for (script in scripts_to_source) {
cat("Sourcing script:", script, "\n")
source(script)
}