MultiLabLeaderboard/ui.R at master · Big-Bio/MultiLabLeaderboard · 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
45
46
47
48
49
50
51
52
53
54
55
library('shiny')
library('DT')

source('configuration.R')

shinyUI(
  fluidPage(
    titlePanel('leaderboard'),
    fluidRow(
      tabsetPanel(
        tabPanel('leaderboard',
          fluidPage(
            plotOutput('p_user_count'),
            fluidRow(
              column(width = 4,
                p(paste('percentage of lab beating ',PIname,': '), textOutput('p_above_pritch'))),
              column(width = 4),
              column(width = 8, selectInput('s_select_campaign', 'Which campaign:',
                  campaigns$campaign, selected = default_current_campaign$campaign))
              ),
            fluidRow(
              column(width = 4,
               DT::dataTableOutput("user_count_table")
               ),
             column(width = 8,
               plotOutput('p_n_summary')
               )
              ),
            fluidRow(
              column(width = 8, plotOutput('mean_per_personweek_labcomp'))
            ),
            column(width = 4,
                   DT::dataTableOutput("lab_count_table")
            )
            )
          ),
        tabPanel('DOI info',
          fluidPage(
            fluidRow(
              column(
                width = 12,
                DT::dataTableOutput("doi_info")
                )
              )
            )
          ),
        tabPanel('raw data',
          {
            dataTableOutput('raw_data')
          })
        # end tabsetPanel
        )
      )
    )
  )