make output code more readable in tm_g_association

Author: m7pr

R/tm_g_association.R

@@ -502,8 +502,9 @@ srv_tm_g_association <- function(id,
         teal.code::eval_code(
           substitute(
             expr = {
-              plot_top <- plot_calls[[1]]
-              plot_bottom <- plot_calls[[2]]
+              plots <- plot_calls
+              plot_top <- plots[[1]]
+              plot_bottom <- plots[[2]]
               plot <- tern::stack_grobs(grobs = lapply(list(plot_top, plot_bottom), ggplot2::ggplotGrob))
             },
             env = list(