Expand on comment about vapply vs lapply

Former-commit-id: 494d1d3
Former-commit-id: f354ee960852a1f02b4abfbf2e42a7642c2ea2e9

Author: Bisaloo

R/sdArray.R

@@ -120,7 +120,8 @@ setMethod("data_type", "DelayedArray", \(x) {
     if (is.null(v)) return()
     if (v == "0.5") x <- x$ome
     # NOTE: can't use 'vapply' as we 
-    # have encountered integer 'label's  
+    # have encountered integer 'label's
+    # Tracked in https://github.com/scverse/spatialdata/issues/1136
     x <- x$omero$channels
     x$label %||% unlist(lapply(x, `[[`, "label"))
 }