web/ui.R

In cdepeuter/golf_analytics: Golf Analysis

shinyUI(fluidPage(
    
    titlePanel("Hello Shiny!"),

    sidebarLayout(
        sidebarPanel(
            selectizeInput("player", "Player:", getPlayerNameMap(all.drives), 1810)
        ),
        
        mainPanel(
            
            plotOutput("adjustedDriveDistPlot"),
            plotOutput("classPlot"),
            plotOutput("driveDistPlot"),
            plotOutput("driveDistHist")
        )
    )
))