Correct example & added length-1 reducedDim slot autodetection

microbiome · Jul 30, 2024 · 0dd1659 · 0dd1659
1 parent b1e961a
commit 0dd1659
Showing 1 changed file with 5 additions and 2 deletions.
diff --git a/R/plotLoadings.R b/R/plotLoadings.R
@@ -89,7 +89,7 @@
 #' 
 #' # Plotting after performing LDA method
 #' tse <- addLDA(tse)
-#' plotLoadings(tse, dim = "LDA")
+#' plotLoadings(tse, dimred = "LDA", ncomponents = 2)
 NULL
 
 #' @rdname plotLoadings
@@ -109,8 +109,11 @@ setMethod("plotLoadings", signature = c(x = "TreeSummarizedExperiment"),
             tree.name = "phylo",
             class = rownames(x),
             ...) {
+
+        if (length(reducedDimNames(x)) == 1) {
+            dimred <- reducedDimNames(x)
+        }
 
-
         # Making sure there is no error in parameters given by the user
         .check_parameters(x,
                         dimred = dimred,