How To Use Reactive Data.frame, Renderplot, And Observeevent To Toggle Points In A Shiny App