commit 1678c3ad7dfe1fa424a74b1faa29b4a61167f33b
author Marc Kupietz <kupietz@ids-mannheim.de> Tue Dec 07 10:24:49 2021 +0100
committer Marc Kupietz <kupietz@ids-mannheim.de> Tue Dec 07 10:43:43 2021 +0100
tree 4616963b6aa8a3a6826db420384f8385650ba125
parent 6a3185b351a7f7ed48639d547ec6403d38cbc44d

CA: Keep query for examples in result data frame

Change-Id: I241d9a3fbd92550a3085cc554cef4645302c4df8

R/collocationAnalysis.R

diff --git a/R/collocationAnalysis.R b/R/collocationAnalysis.R
index 2117da9..7a83140 100644
--- a/R/collocationAnalysis.R
+++ b/R/collocationAnalysis.R
@@ -185,7 +185,7 @@
                 dplyr::arrange(dplyr::desc(logDice))
             }
             if (addExamples && length(result) > 0) {
-              result$xquery <-buildCollocationQuery(
+              result$query <-buildCollocationQuery(
                 result$node,
                 result$collocate,
                 leftContextSize = leftContextSize,
@@ -194,7 +194,7 @@
               )
               result$example <- findExample(
                 kco,
-                query = result$xquery,
+                query = result$query,
                 vc = result$vc
               )
             }