-
Notifications
You must be signed in to change notification settings - Fork 0
/
ui.R
57 lines (52 loc) · 1.55 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
49
50
51
52
53
54
55
56
57
appname <- "venn app"
header <- shiny::tags$header(
class = "main-header",
shiny::tags$span(class = "logo", ""),
shiny::withMathJax(),
shinyjs::useShinyjs(),
shinyjs::extendShinyjs(
text = "shinyjs.collapse = function(boxId) {
$('#' + boxId).closest('.box').find('[data-widget=collapse]').click();
}", functions = "collapse"),
shinyFeedback::useShinyFeedback(),
shinyWidgets::useSweetAlert(),
bsplus::use_bs_tooltip(),
rintrojs::introjsUI(),
shiny::includeScript("www/d3.v4.min.js"),
shiny::includeScript("www/venn.js"),
shiny::includeCSS("www/venn_app.css"),
shiny::includeScript("www/venn_app.js"),
shiny::tags$nav(class = "navbar navbar-static-top", role = "navigation",
shiny::tags$form(class = "form-inline",
shiny::tags$div(class = "form-group", style = "float:left",
shiny::tags$span(id = "titleApp", class = "logo", appname)
),
shiny::tags$div(class = "form-group", style = "float:right;",
shiny::tags$a(`data-toggle` = "tooltip",
`data-placement` = "left",
title = 'Information on the different areas of the active window',
shiny::actionButton('introjs', '', icon = icon('question'))
)
)
)
)
)
sidebar <- shinydashboard::dashboardSidebar(disable = TRUE)
body <- shinydashboard::dashboardBody(
shiny::fluidPage(
tags$div(id = "loader", class = "lds-dual-ring"),
shinyjs::hidden(
shiny::div(id = 'app-content',
source(file.path('ui', 'main.R'), local = TRUE)$value
)
)
)
)
shiny::shinyUI(
shinydashboard::dashboardPage(
title = appname,
header,
sidebar,
body
)
)