ugh

m7pr · m7pr · commit 12d7627b7d06 · 2024-11-20T12:20:41.000+01:00
diff --git a/R/tm_g_association.R b/R/tm_g_association.R
@@ -476,7 +476,6 @@ srv_tm_g_association <- function(id,
             )
           )
         }
-
       teal.code::eval_code(
         merged$anl_q_r(),
         substitute(
@@ -502,6 +501,7 @@ srv_tm_g_association <- function(id,
           )
         )
     })
+    # TODO allow to decorate ref_call and var_calls before they are included in tern::stack_grobs(grobs = lapply(plots, ggplotGrob))
 
     decorated_output_q <- srv_teal_transform_data("decorate", data = output_q, transformators = decorators)
 

Original file line number	Diff line number	Diff line change
`@@ -476,7 +476,6 @@ srv_tm_g_association <- function(id,`
`476`	`476`	`)`
`477`	`477`	`)`
`478`	`478`	`}`
`479`		`-`
`480`	`479`	`teal.code::eval_code(`
`481`	`480`	`merged$anl_q_r(),`
`482`	`481`	`substitute(`
`@@ -502,6 +501,7 @@ srv_tm_g_association <- function(id,`
`502`	`501`	`)`
`503`	`502`	`)`
`504`	`503`	`})`
	`504`	`+ # TODO allow to decorate ref_call and var_calls before they are included in tern::stack_grobs(grobs = lapply(plots, ggplotGrob))`
`505`	`505`
`506`	`506`	`decorated_output_q <- srv_teal_transform_data("decorate", data = output_q, transformators = decorators)`
`507`	`507`