How to create a interactive visualization using flashboard, one shiny input and one httmlwidgets. I want to present which olympic sports accumulated the most medals$($gold$,$ silver, bronze$)$ per year. Here is what I have so far to tidy up the data.

olympics $<-$ olympics $\%>\%$

na$.$omit$($olympics$)\%>\%$

select$($year$,$ sport, medal$)\%>\%$

arrange$($year$)$