-
Notifications
You must be signed in to change notification settings - Fork 0
/
server.R
43 lines (43 loc) · 1.95 KB
/
server.R
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
#
# This is the server logic of a Shiny web application. You can run the
# application by clicking 'Run App' above.
#
# Find out more about building applications with Shiny here:
#
# http://shiny.rstudio.com/
#
# Define server logic required to draw a histogram
shinyServer(function(input, output, session) {
#----------------------------------------------------------------------------
# Automatically stop session once browser window is closed.
# Appears to work but when editing the ui.R errors will beging to appear in
# to console.
session$onSessionEnded(stopApp)
#----------------------------------------------------------------------------
source("server/dates_server.R", local = TRUE)
source("server/flow_units_server.R", local = TRUE)
source("server/import_server.R", local = TRUE)
#----------------------------------------------------------------------------
# TAB 1
# Situational Awareness (sa)
#----------------------------------------------------------------------------
# source("server/sa_server.R", local = TRUE)
#----------------------------------------------------------------------------
# TAB 2
# One-Day Operations (odo)
#----------------------------------------------------------------------------
source("server/odo_server.R", local = TRUE)
#----------------------------------------------------------------------------
# TAB 3
# North Branch Release (nbr)
#----------------------------------------------------------------------------
# source("server/nbr_server.R", local = TRUE)
#----------------------------------------------------------------------------
# TAB 4
# Demand Time Series (dts)
#----------------------------------------------------------------------------
# source("server/dts_server.R", local = TRUE)
#----------------------------------------------------------------------------
# lapply(c("sa", "odo", "nbr", "dts"),
# function(x) outputOptions(output, x, suspendWhenHidden = FALSE))
})