Option plotting in shiny for educational goals