https://gdiaperinsertsideas.blogspot.com/2024/01/shiny-r-scale-down-plotoutput.html