Small fix

tesselle · Jun 13, 2024 · c94089c · c94089c
1 parent 57a83ff
commit c94089c
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/R/plot.R b/R/plot.R
@@ -6,13 +6,14 @@ NULL
 #' @export
 #' @method plot CompositionMatrix
 plot.CompositionMatrix <- function(x, ..., margin = NULL, groups = get_groups(x)) {
-  if (!is.null(groups) || !all(is.na(groups))) {
+  if (!is.null(groups) && !all(is.na(groups))) {
     col <- dimensio::palette_color_discrete(list(...)$col)(groups)
     pch <- dimensio::palette_shape(list(...)$pch)(groups)
   } else {
     col <- list(...)$col %||% graphics::par("col")
     pch <- list(...)$pch %||% graphics::par("pch")
   }
+
   isopleuros::ternary_pairs(x, margin = margin, col = col, pch = pch, ...)
   invisible(x)
 }