-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathui.R
48 lines (44 loc) · 2.05 KB
/
ui.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
44
45
46
47
48
#' =============================================================
#' @description UI page for CMTCN
#'==============================================================
#'==============================================================
#' source for help
#'==============================================================
source("helpers.R")
#'==============================================================
#' navbarPage:always at the top of the page
#'==============================================================
navbarPage(
# define the theme: using shinytheme
theme = "cream.css",
# fluid = T,
# define the windows title
windowTitle = HTML("CMTCN"),
# define the Name of the web
title = p(HTML("<img style='backfloat:left; margin-top:-10px;'
src='./img/logo.png'
width='50px'
height='50px'/>"),
HTML("<font size=\"4\"
color=\"#00B2EE\">CMTCN
</font>")),
# #record the Navy Id
id = "NavyID",
# source UI pages
source("ui-tab-Start.R",local = TRUE)$value,
source("ui-tab-Network.R",local = TRUE)$value,
source("ui-tab-Tutorial.R",local = TRUE)$value,
source("ui-tab-News.R",local = TRUE)$value,
source("ui-tab-About.R",local = TRUE)$value,
#'==============================================================
#'Footer
#'==============================================================
footer = p(hr(),p("ShinyApp created by ",strong("Ruijiang LI (Rillet Lee)")," of Beijing Institute of Radiation Medicine",align="center",width=4),
#p(("Code available on Github:"),a("https://github.com/",href=""),align="center",width=4),
p("Feel free to contact Ruijiang LI (jqom@sohu.com) for any question or bug report.",align="center",width=4),
p(("Copyright © 2018"),align="center",width=4)),
tags$head(includeScript("google-analytics.js"))
)
#'==============================================================
#'End of the UI page
#'==============================================================