Shiny-Scorekeeper/ui.R at main · hinkelman/Shiny-Scorekeeper · 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
page_navbar(
  title = "Shiny Scorekeeper",
  window_title = "Scorekeeper",
  fillable = FALSE,
  id = "nav",
  sidebar = sidebar(
    width = 300,
    conditionalPanel(
      condition = 'input.nav == "Roster"',
      rosterSB("roster")
    ),
    conditionalPanel(
      condition = 'input.nav == "Scorekeeper"',
      scorekeeperSB("scorekeeper")
    ),
    conditionalPanel(
      condition = 'input.nav == "Stats Viewer"',
      statsviewerSB("statsviewer")
    )
  ),
  nav_spacer(),
  nav_panel("Roster",
            rosterUI("roster")),
  nav_panel("Scorekeeper",
            scorekeeperUI("scorekeeper")),
  nav_panel("Stats Viewer",
            statsviewerUI("statsviewer")),
  nav_spacer(),
  nav_menu(title = "About", align = "right",
           nav_panel("Instructions",
                     card(
                       includeMarkdown(file.path("markdown", "instructions.md"))
                     )
           ),
           nav_panel("Background",
                     card(
                       includeMarkdown(file.path("markdown", "background.md"))
                     )
           )
  )
)