Shiny-Calorie/startapp.R at develop · ICB-DCM/Shiny-Calorie · 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
library(shiny)
library(shinyFiles)

################################################################################
# Command line arguments
################################################################################
args <- commandArgs(trailingOnly = TRUE)

port <- 1338
host <- "0.0.0.0"

if (length(args) == 2) {
   port <- as.numeric(args[1])
   host <- as.character(args[2])
}


################################################################################
# Configuration options
################################################################################
maxRequestSize <- 100 * 1024^2 # 100 MiB
printSessionInfo <- TRUE

################################################################################
# Set Shiny options
################################################################################
options(shiny.host = host)
options(shiny.port = port)
options(shiny.maxRequestSize = maxRequestSize)
#options(shiny.trace = TRUE)
#options(shiny.fullstacktrace = TRUE)

################################################################################
# Debug session
################################################################################
if (printSessionInfo) {
   print(sessionInfo())
}

################################################################################
# Start application
################################################################################
runApp(".")