Refactor condition for inner_classes check (#365)

m7pr · web-flow · commit bcb3adc176c4 · 2025-09-15T12:41:44.000+02:00
Related to https://github.com/insightsengineering/teal.osprey/pull/308/files/88116b9e9c4886713a95640b4b88d21e3d138eea..97c0d2b36c460e04249a3ba53e2f5ab20d948a6e#r2343928335 Signed-off-by: Marcin <133694481+m7pr@users.noreply.github.com>
diff --git a/R/utils.R b/R/utils.R
@@ -133,7 +133,11 @@ set_chunk_attrs <- function(teal_card,
       return(teal_card)
     }
 
-    if (length(inner_classes) > 0 && !checkmate::test_multi_class(teal_card[[current_ix]][[1]], inner_classes)) {
+    if (
+      length(inner_classes) > 0 &&
+        length(teal_card[[current_ix]]) >= 1 &&
+        !checkmate::test_multi_class(teal_card[[current_ix]][[1]], inner_classes)
+    ) {
       next
     }
 

Original file line number	Diff line number	Diff line change
`@@ -133,7 +133,11 @@ set_chunk_attrs <- function(teal_card,`
`133`	`133`	`return(teal_card)`
`134`	`134`	`}`
`135`	`135`
`136`		`- if (length(inner_classes) > 0 && !checkmate::test_multi_class(teal_card[[current_ix]][[1]], inner_classes)) {`
	`136`	`+ if (`
	`137`	`+ length(inner_classes) > 0 &&`
	`138`	`+ length(teal_card[[current_ix]]) >= 1 &&`
	`139`	`+ !checkmate::test_multi_class(teal_card[[current_ix]][[1]], inner_classes)`
	`140`	`+ ) {`
`137`	`141`	`next`
`138`	`142`	`}`
`139`	`143`