-
Notifications
You must be signed in to change notification settings - Fork 0
/
uiCustomDesktop.R
47 lines (45 loc) · 1.96 KB
/
uiCustomDesktop.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
# top-level framework for desktop version
# last update:2016-10-29
source('uiStart.R')
source('uiCustomApp.R')
source('uiMenu.R')
source('uiFooter.R')
uiCustomDesktop <- function(){
tagList(
# Code for initial "Wait"-Animation
# tags$head(tags$script(src='http://cdnjs.cloudflare.com/ajax/libs/modernizr/2.8.2/modernizr.js')),
# tags$head(tags$link(rel='stylesheet', type='text/css', href='init_anim.css')),
# tags$div(class='init-animation'),
uiInit(),
uiStart(),
navbarPage(
uiOutput('hdrImageLinkDesktop'),
id='mainPage',
selected = appName,
collapsible=TRUE,
inverse=FALSE,
windowTitle=paste0(appTitle, ' | OwnYourData'),
tabPanel(HTML(paste0('hidden',
'</a></li>',
'<li><a id="returnPIAlink" href="#">zum Datentresor'))
),
tabPanel(appTitle,
value = appName,
fluidRow(
column(1),
column(10,
tagList(
bsAlert('urlStatus'),
bsAlert('piaStatus'),
bsAlert('taskInfo'))
)
),
uiCustomApp()
),
navbarMenu(icon('cog'),
uiMenu()
),
footer=uiFooter()
)
)
}