Update R/tm_variable_browser.R

m7pr · averissimo · web-flow · commit 2c69623b2484 · 2025-09-08T15:15:50.000+02: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_variable_browser.R b/R/tm_variable_browser.R
@@ -492,7 +492,8 @@ srv_variable_browser <- function(id,
 
     reactive({
       validation_checks()
-      teal.data::teal_data(plot = variable_plot_r()) |> teal.code::eval_code("plot")
+      qenv <- teal.data::teal_data(plot = variable_plot_r()) |> teal.code::eval_code("plot")
+      teal_card(qenv)[length(teal_card(qenv))]
     })
   })
 }

Original file line number	Diff line number	Diff line change
`@@ -492,7 +492,8 @@ srv_variable_browser <- function(id,`
`492`	`492`
`493`	`493`	`reactive({`
`494`	`494`	`validation_checks()`
`495`		`- teal.data::teal_data(plot = variable_plot_r()) \|> teal.code::eval_code("plot")`
	`495`	`+ qenv <- teal.data::teal_data(plot = variable_plot_r()) \|> teal.code::eval_code("plot")`
	`496`	`+ teal_card(qenv)[length(teal_card(qenv))]`
`496`	`497`	`})`
`497`	`498`	`})`
`498`	`499`	`}`