web/server.R

In cdepeuter/golf_analytics: Golf Analysis

# Define server logic for random distribution application
function(input, output) {
    
    
    #print(input$player)
    drive_data <- reactive({
        all.drives[all.drives$player == input$player[1], ]
    })
    
    #print(player_id)
 
    output$driveDistPlot <- renderPlot({
        plotDriveDistMultipleTourneys(drive_data())
    })
    
    output$adjustedDriveDistPlot <- renderPlot({
        plotDriveDistClassAdjustWeather(drive_data())
    })
    
    output$classPlot <- renderPlot({
        plotDriveDistClass(drive_data())
    })
    output$driveDistHist <- renderPlot({
        driveDistHist(drive_data)
    })

}