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
|
source("global_utils.R", local = TRUE)
source("ui_utils.R", local = TRUE)
# Begin shinyUI -----------------------------------------------------------
# _________________________________________________________________________
tagList(
tags$noscript(
style = "color: orange; font-size: 30px; text-align: center;",
"Please enable JavaScript to use ShinyStan."
),
shinyjs::useShinyjs(),
includeCSS("css/ShinyStan.css"),
navbarPage(
save_and_close_button(), # title = NULL
id = "nav",
position = "fixed-top",
collapsible = TRUE,
theme = shinythemes::shinytheme("flatly"),
windowTitle = "ShinyStan",
#### HOME ####
tabPanel(
title = strong(style = "color: #B2011D;", "ShinyStan"),
value = "home",
source_ui("PAGE_home.R")
),
#### DIAGNOSE ####
tabPanel(
title = "Diagnose",
icon = icon("medkit"),
source_ui("PAGE_diagnose.R")
),
#### ESTIMATE ####
tabPanel(
title = "Estimate",
icon = icon("stats", lib = "glyphicon"),
withMathJax(),
source_ui("PAGE_estimate.R")
),
#### EXPLORE ####
tabPanel(
title = "Explore",
icon = icon("eye-open", lib = "glyphicon"),
source_ui("PAGE_explore.R")
),
#### More ####
source_ui("PAGE_more_menu.R")
) # End navbarPage
) # End tagList
# End shinyUI -------------------------------------------------------------
# -------------------------------------------------------------------------
|
