Creating a Pop-up for a Sparkline Object in a Datatable with R and Shiny