From 6a1bf6bf08ee747bb9c59dfeeb7f19ae95f2a837 Mon Sep 17 00:00:00 2001
From: simonmfr <70199914+simonmfr@users.noreply.github.com>
Date: Wed, 28 Sep 2022 16:03:02 +0200
Subject: [PATCH] Bug fix in filter_missval()

Fixing bug in filter_missval():

Error in .SummarizedExperiment.charbound(i, rownames(x), fmt): <SummarizedExperiment>[i,] index out of bounds: 10 100 ... 9998 9999
Traceback:

1. DEP::filter_missval(data_se, thr = 1)
2. se[keep$rowname, ]
3. se[keep$rowname, ]
4. .SummarizedExperiment.charbound(i, rownames(x), fmt)
5. stop(sprintf(fmt, msg))
---
 R/functions.R | 1 +
 1 file changed, 1 insertion(+)

diff --git a/R/functions.R b/R/functions.R
index 23d5fc4..b0501dd 100644
--- a/R/functions.R
+++ b/R/functions.R
@@ -445,6 +445,7 @@ filter_missval <- function(se, thr = 0) {
     summarize(miss_val = n() - sum(value)) %>%
     filter(miss_val <= thr) %>%
     spread(condition, miss_val)
+  keep$rowname <- as.numeric(keep$rowname)
   se_fltrd <- se[keep$rowname, ]
   return(se_fltrd)
 }