Shiny: Subsetting ggplot based on input$var in .Rmd file

Question

I am having issues displaying my ggplots for each respective program (1:7). I have an inputs sidebar defined below. However, I end up with a blank plot aside from horizontal