Update R/clustering_tfit_window.R

71673849 · Gosset Simon · 30f9ee59 · 71673849
Commit 71673849 authored Mar 14, 2022 by Gosset Simon
--- a/R/clustering_tfit_window.R
+++ b/R/clustering_tfit_window.R
@@ -50,7 +50,7 @@ clustering_tfit <- function(organism, network) {
    
    clust = grep(pattern = i, x = result_tfit[[1]])
    
-    clust = result_tfit[[2]][clust]
+    clust = unlist(result_tfit[[2]][clust])
    
    if(length(clust) > 0) {