no need to grid.draw grobs

Author: gogonzo

R/tm_g_association.R

@@ -525,10 +525,7 @@ srv_tm_g_association <- function(id,
       id = "decorator",
       data = output_q,
       decorators = select_decorators(decorators, "plot"),
-      expr = quote({
-        grid::grid.newpage()
-        grid::grid.draw(plot)
-      })
+      expr = quote(plot)
     )
 
     plot_r <- reactive({