Refactor conditional statement for inner_classes check (#916)

m7pr · web-flow · commit 3ba0088bcce5 · 2025-09-15T12:41:31.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
@@ -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`