Update R/tm_t_crosstable.R

m7pr · averissimo · web-flow · commit a1300ead3a78 · 2024-11-21T15:15:13.000+01:00
Co-authored-by: André Veríssimo &lt;211358+averissimo@users.noreply.github.com&gt;
Signed-off-by: Marcin &lt;133694481+m7pr@users.noreply.github.com&gt;
diff --git a/R/tm_t_crosstable.R b/R/tm_t_crosstable.R
@@ -407,7 +407,8 @@ srv_t_crosstable <- function(id, data, reporter, filter_panel_api, label, x, y,
         )
     })
 
-    decorated_output_q <- srv_teal_transform_data("decorate", data = output_q, transformators = decorators)
+    decorated_output_q_no_print <- srv_teal_transform_data("decorate", data = output_q, transformators = decorators)
+    decorated_output_q <- reactive(within(decorated_output_q_no_print(), expr = table))
 
     output$title <- renderText(output_q()[["title"]])
 

Original file line number	Diff line number	Diff line change
`@@ -407,7 +407,8 @@ srv_t_crosstable <- function(id, data, reporter, filter_panel_api, label, x, y,`
`407`	`407`	`)`
`408`	`408`	`})`
`409`	`409`
`410`		`- decorated_output_q <- srv_teal_transform_data("decorate", data = output_q, transformators = decorators)`
	`410`	`+ decorated_output_q_no_print <- srv_teal_transform_data("decorate", data = output_q, transformators = decorators)`
	`411`	`+ decorated_output_q <- reactive(within(decorated_output_q_no_print(), expr = table))`
`411`	`412`
`412`	`413`	`output$title <- renderText(output_q()[["title"]])`
`413`	`414`