WRprogress/ui.R at master · dmbubb/WRprogress · 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
56
57
58
59
60
61
62
63
64
65
66
67
library(shiny)
library(shinythemes)
library(dplyr)
library(ggplot2)
library(ggthemes)
library(plotly)
library(quantreg)
library(e1071)
library(timevis)
library(car)

ui <- fluidPage(
  titlePanel("World Record Progress and Potentially Novel Ways to Detect Doping"),
  theme = shinytheme('superhero'),


  sidebarLayout(
    sidebarPanel(
      selectInput("event", label = h2("Select race for analysis:"),
                  choices = list("100m" = "hundred", "1500m" = 'fift', "10000m" = 'Tenk'),
                  selected = 'hundred'),

      hr(),
      fluidRow(column(3)),

      radioButtons("mode", label = h3("Select either world record or all-time performances"),
                   c("World Record" = "WR",
                     "All-Time" = "AT"
                   )),
      checkboxInput("annul", "Include annulled performance? (For 100m only.)", F)

    ),


    mainPanel(

      tabsetPanel(
        tabPanel("Scatter Plots",
                 plotlyOutput("plot1", height = 406,
                              width = 650),

                 hr(),

                 htmlOutput("video")),
        tabPanel("Box Plots", plotlyOutput("plot2", height = 750,
                                           width = 650)),

        tabPanel("Density Plots", plotlyOutput("plot3", height = 750,
                                               width = 650)),
        tabPanel("Timeline", timevisOutput("timeline", height = 750,
                                           width = 650)),
        tabPanel("10000 Analysis", plotlyOutput("plot5", height = 406,
                                                width = 650),

                 hr(),
                 plotlyOutput("plot6", height = 406,
                             width = 650)),
        tabPanel("1500 Analysis", plotlyOutput("plot7", height = 750,
                                               width = 650)),
        tabPanel("Discussion",
                 tags$iframe(style="height:700px; width:100%; scrolling=yes",
                             src="https://www.dropbox.com/s/3rx5ta78c4qd2kx/WRprogress.pdf"))
      )

                  ))
)