SSMPG2017/ui.R at master · feilchenfeldt/SSMPG2017 · GitHub

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
header <- dashboardHeader(
  title = "SSMPG 2017"
)

body <- dashboardBody(
  shinyjs::useShinyjs(), # useShinyjs() to reset fileInput
  tagList(
    tags$head(
      tags$link(rel = "stylesheet", type = "text/css", href = "style.css"),
      tags$script(type = "text/javascript", src = "busy.js")
    )
  ),
  div(class = "busy",
      p("Updating..."),
      img(src = "loading.gif")
  ),
  uiOutput("ui")
)

sidebar <- dashboardSidebar(
  sidebarMenu(id = "tab",
              menuItem("Challenge",
                       icon = icon("trophy"),
                       menuSubItem("Dahu",
                                   tabName = "challenge"),
                       menuSubItem("Cichlid",
                                   tabName = "challenge_2")),
              menuItem("Vignette",
                       tabName = "vignette",
                       icon = icon("book")),
              menuItem("GitHub",
                       icon = icon("github"),
                       href = "https://github.com/bcm-uga/SSMPG2017"),
              #menuItem("Datasets", tabName = "download", icon = icon("download")),
              div(actionButton(inputId = "users",
                               label = "Create team",
                               icon = icon("users")),
                  align = "center")
  )
)

dashboardPage(header,
              sidebar,
              body)