chore: fix minor r cmd check errors

averissimo · averissimo · commit 8780e44ad012 · 2025-09-08T14:56:07.000+01:00
diff --git a/R/tm_variable_browser.R b/R/tm_variable_browser.R
@@ -493,7 +493,7 @@ srv_variable_browser <- function(id,
     reactive({
       validation_checks()
       qenv <- teal.data::teal_data(plot = variable_plot_r()) |> teal.code::eval_code("plot")
-      teal_card(qenv)[length(teal_card(qenv))]
+      teal.reporter::teal_card(qenv)[length(teal.reporter::teal_card(qenv))]
     })
   })
 }
diff --git a/R/utils.R b/R/utils.R
@@ -435,7 +435,7 @@ set_chunk_attrs <- function(teal_card,
 set_chunk_dims <- function(pws, decorated_output_q, inner_classes = NULL) {
   checkmate::assert_list(pws)
   checkmate::assert_names(names(pws), must.include = "dim")
-  assert_reactive(pws$dim)
+  teal::assert_reactive(pws$dim)
   checkmate::assert_class(decorated_output_q, "reactive")
   checkmate::assert_character(inner_classes, null.ok = TRUE)
 

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