Allow to coerce a CompositionMatrix to a data.frame

NAMESPACE

@@ -29,6 +29,7 @@ exportMethods(any_assigned)
 exportMethods(any_replicated)
 exportMethods(as_amounts)
 exportMethods(as_composition)
+exportMethods(as_features)
 exportMethods(as_graph)
 exportMethods(barplot)
 exportMethods(closure)

R/AllGenerics.R

@@ -67,6 +67,23 @@ setGeneric(
   valueClass = "matrix"
 )
 
+#' Coerce to Features
+#'
+#' Converts an object to a collection of features.
+#' @param from A [`CompositionMatrix-class`] object.
+#' @param ... Currently not used.
+#' @return
+#'  A [`data.frame`] with all informations as extra columns.
+#' @example inst/examples/ex-coerce.R
+#' @author N. Frerebeau
+#' @docType methods
+#' @family compositional data tools
+#' @aliases as_features-method
+setGeneric(
+  name = "as_features",
+  def = function(from, ...) standardGeneric("as_features")
+)
+
 # Simplex ======================================================================
 #' Operations in the Simplex
 #'

R/coerce.R

@@ -117,6 +117,7 @@ setMethod(
 )
 
 make_codes <- function(x) {
+  if (!any(duplicated(x))) return(x)
   x <- tapply(
     X = x,
     INDEX = x,
@@ -141,6 +142,7 @@ make_dimnames <- function(x) {
   )
 }
 
+# To Amounts ===================================================================
 #' @export
 #' @rdname as_amounts
 #' @aliases as_amounts,CompositionMatrix-method
@@ -152,6 +154,24 @@ setMethod(
   }
 )
 
+# To Features ==================================================================
+#' @export
+#' @rdname as_features
+#' @aliases as_features,CompositionMatrix-method
+setMethod(
+  f = "as_features",
+  signature = c(from = "CompositionMatrix"),
+  definition = function(from) {
+    data.frame(
+      codes = get_identifiers(from),
+      samples = get_samples(from),
+      groups = get_groups(from),
+      from,
+      row.names = NULL
+    )
+  }
+)
+
 # To data.frame ================================================================
 #' @method as.data.frame CompositionMatrix
 #' @export