fixed issue

sepro · sepro · commit 50a684ae721f · 2024-03-06T17:05:27.000+01:00
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: RLdbRDA
 Type: Package
 Title: Distance Based Redundancy Analysis
-Version: 0.1.1
+Version: 0.1.2
 Author: Sebastian Proost
 Maintainer: Sebastian Proost <sebastian.proost@gmail.com>
 Description: Implementation of the Distance Based Redundancy Analysis as often used in the RaesLab.
diff --git a/R/rldbrda.R b/R/rldbrda.R
@@ -211,7 +211,7 @@ rldbrda <- function(df, meta, method="bray", p_cutoff=0.05) {
     stop("No significant features found, cannot continue!")
   }
 
-  cumul <- get_cumul(distmat, meta[, sign_r2])
+  cumul <- get_cumul(distmat, meta[, sign_r2, drop=F])
 
   out <- combine_data(r2, cumul)
 

Original file line number	Diff line number	Diff line change
`@@ -211,7 +211,7 @@ rldbrda <- function(df, meta, method="bray", p_cutoff=0.05) {`
`211`	`211`	`stop("No significant features found, cannot continue!")`
`212`	`212`	`}`
`213`	`213`
`214`		`- cumul <- get_cumul(distmat, meta[, sign_r2])`
	`214`	`+ cumul <- get_cumul(distmat, meta[, sign_r2, drop=F])`
`215`	`215`
`216`	`216`	`out <- combine_data(r2, cumul)`
`217`	`217`