selectInput("avpname",
            "Select AVP:",
             c(unique(as.character(IncidentTickets$RequestorAVP))))

limitDateRange <- reactive({
NumberOfIncidentTickets <- subset(NumberOfIncidentTickets, RequestorAVP == input$avpname)
})

NumberOfIncidentTickets <- subset(NumberOfIncidentTickets, RequestorAVP == 'Students')

print(input$avpname)

NumberOfIncidentTickets <- subset(NumberOfIncidentTickets, RequestorAVP == NULL)

if(!is.null(input$avpname))
{
NumberOfIncidentTickets <- subset(NumberOfIncidentTickets, RequestorAVP == input$avpname)
}