下载使用grid.draw（）创建的图作为png in downloadHandler Shiny

I'm having problems downloading a plot created with grid.draw() in the downloadHandler() function in Shiny. Here is a reproducible example of what I want to achieve:I'm having problems downloading a plot created