Fix getDivergence (#655)

microbiome · Nov 4, 2024 · 161b209 · 161b209
1 parent 1c53e54
commit 161b209
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: mia
 Type: Package
-Version: 1.15.2
+Version: 1.15.3
 Authors@R:
     c(person(given = "Tuomas", family = "Borman", role = c("aut", "cre"),
              email = "tuomas.v.borman@utu.fi",

diff --git a/R/addDivergence.R b/R/addDivergence.R
@@ -218,7 +218,7 @@ setMethod("getDivergence", signature = c(x="SummarizedExperiment"),
         reference <- rep(reference, ncol(mat))
     }
     # Check that all reference samples are included in the data
-    if( !all(reference %in% colnames(mat)) ){
+    if( !all(reference %in% colnames(mat) | is.na(reference)) ){
         stop("All reference samples must be included in the data.",
             call. = FALSE)
     }