+channelNames(),ImageArray

Author: HelenaLC

NAMESPACE

@@ -56,6 +56,7 @@ exportMethods(CTtype)
 exportMethods(addCT)
 exportMethods(as.data.frame)
 exportMethods(axes)
+exportMethods(channelNames)
 exportMethods(colnames)
 exportMethods(data)
 exportMethods(dim)

R/AllGenerics.R

@@ -79,6 +79,7 @@ setGeneric("meta", \(x, ...) standardGeneric("meta"))
 setGeneric("query", \(x, ...) standardGeneric("query"))
 setGeneric("mask", \(x, i, j, ...) standardGeneric("mask"))
 
+setGeneric("channelNames", \(x, ...) standardGeneric("channelNames"))
 setGeneric("filterElements", \(x, y, ...) standardGeneric("filterElements"))
 
 # tbl ----

R/ImageArray.R

@@ -28,6 +28,14 @@ ImageArray <- function(data=list(), meta=Zattrs(), metadata=list(), ...) {
     return(x)
 }
 
+#' @rdname ImageArray
+#' @export
+setMethod("channelNames", "ImageArray", \(x, ...) meta(x)$omero$channels$label)
+
+#' @rdname ImageArray
+#' @export
+setMethod("channelNames", "ANY", \(x, ...) stop("only 'images' have channels"))
+
 #' @importFrom S4Vectors isSequence
 .get_multiscales_dataset_paths <- function(md) {