combatGame/ui.R at master · lwawrowski/combatGame · 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
dashboardPage(
  dashboardHeader(title = "COMBAT"),
  dashboardSidebar(disable = T,
                   sidebarMenu(
                     menuItem("Game", tabName = "game", icon = icon("th"))
                   )),
  dashboardBody(
    tabItems(
      tabItem(
        tabName = "game",
        fluidRow(
          box(
            id = "box_map",
            width = 10,
            plotOutput(
              "map",
              width = "1000px",
              height = "600px",
              click = "map_click",
              dblclick = "map_dblclick",
              hover = "map_hover"
            )
          ),
          infoBox(title = actionLink("newgame", "NEW GAME"), subtitle = uiOutput("end_turn"),
                  icon = icon("cog"), color = "blue", width = 2),
          infoBoxOutput("current_move", width = 2),
          infoBoxOutput("current_turn", width = 2),
          infoBoxOutput("current_hp", width = 2),
          infoBoxOutput("potential_hp", width = 2),
          infoBoxOutput("chance", width = 2)
        ),

        # other outputs -----------------------------------------------------------

        fluidRow(
          box(width = 10, tableOutput("info")))
      ))
  )
)