finalproject-baseball/initialcode at master · STAT360/finalproject-baseball · 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
68
69
70
library(shiny)

ui <- fluidPage(
    titlePanel("UST Men's Baseball"),
    sidebarLayout(
        sidebarPanel(
            dateInput("var",
                      label = "Date:",
                      value = NULL,
                      min = NULL,
                      max = NULL,
                      format = "mm-dd-yy",
                      startview = "month",
                      weekstart = 0,
                      language = "en",
                      width = NULL,
                      autoclose = TRUE,
                      datesdisabled = NULL,
                      daysofweekdisabled = NULL),
            selectInput("var",
                        label = "Team:",
                        choices = list("Augsburg University",
                                       "Bethel University",
                                       "Carleton College",
                                       "Concordia College",
                                       "Gustavus Adolphus College",
                                       "Hamline University",
                                       "Macalester College",
                                       "Saint John's University",
                                       "St. Olaf College",
                                       "University of St. Thomas"),
                        selected = "University of St. Thomas"),
            numericInput("var",
                         label = "Player Number:",
                         value = 00,
                         min = 00,
                         max = 99,
                         step = 1,
                         width = NULL),
            selectInput("var",
                        label = "Type of Hit:",
                        choices = list("None",
                                       "Ground Ball",
                                       "Line Drive",
                                       "Pop Fly")),
            selectInput("var",
                        label = "Batting Result:",
                        choices = list("Out",
                                       "Single",
                                       "Double",
                                       "Triple",
                                       "Home Run")),
            img(src = "USTlogo.jpg", height = 100, width = 235)
        ),
        mainPanel(
            tags$head(tags$script(src = "message-handler.js")),
            actionButton(style ="display:inline-block;width:20%;text-align:center;","do", "Next", style="float:right"),
            br(),
            img(src = "field.png", height = 450, width = 450),
            br(),
            tags$head(tags$script(src = "message-handler.js")),
            actionButton(style ="display:inline-block;width:20%;text-align:center;","do", "End Game", style="float:right")
        )
    )
))

server <- function(input, output) {
}

shinyApp(ui = ui, server = server)