Refactor conditional statement for inner_classes check

m7pr · web-flow · commit 398a51decb3e · 2025-09-15T11:45:00.000+02:00
Signed-off-by: Marcin &lt;133694481+m7pr@users.noreply.github.com&gt;
diff --git a/R/utils.R b/R/utils.R
@@ -405,7 +405,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
`@@ -405,7 +405,11 @@ set_chunk_attrs <- function(teal_card,`
`405`	`405`	`return(teal_card)`
`406`	`406`	`}`
`407`	`407`
`408`		`- if (length(inner_classes) > 0 && !checkmate::test_multi_class(teal_card[[current_ix]][[1]], inner_classes)) {`
	`408`	`+ if (`
	`409`	`+ length(inner_classes) > 0 &&`
	`410`	`+ length(teal_card[[current_ix]]) >= 1 &&`
	`411`	`+ !checkmate::test_multi_class(teal_card[[current_ix]][[1]], inner_classes)`
	`412`	`+ ) {`
`409`	`413`	`next`
`410`	`414`	`}`
`411`	`415`