commit bdb95274826169e9316e76c767dd4a2249496a04
author Marc Kupietz <kupietz@ids-mannheim.de> Wed Dec 22 17:42:21 2021 +0100
committer Marc Kupietz <kupietz@ids-mannheim.de> Wed Dec 22 17:42:21 2021 +0100
tree 02fdd0899ae621d5242ce40858bfb1219e57ad95
parent cc8c538c434ae4f2c5a95dcbe167ff57a037561e

At least touch recursive CA in tests

Change-Id: I8d112d6df4bbde7cfa1f25da3dabd0094273eff5

R/collocationAnalysis.R

diff --git a/R/collocationAnalysis.R b/R/collocationAnalysis.R
index d8df60b..36c7460 100644
--- a/R/collocationAnalysis.R
+++ b/R/collocationAnalysis.R
@@ -163,7 +163,7 @@
                 tibble()
               }
             }
-            if (maxRecurse > 0 & any(!!as.name(thresholdScore) >= threshold)) {
+            if (maxRecurse > 0 & length(result) > 0 && any(!!as.name(thresholdScore) >= threshold)) {
               recurseWith <- result %>%
                 filter(!!as.name(thresholdScore) >= threshold)
               result <- collocationAnalysis(