How to display a scaled up image in an popup window on mouse hover or on click event on an image displayed in a rhandsontable cell in RShiny?

I would like to display a scaled-up popup image on mouseover or on-click event on an image displayed in the rhandsontable cell as shown here.