commit 211344081f403a7f762a63b18bd774c3f4632e51
author Marc Kupietz <kupietz@ids-mannheim.de> Tue May 09 17:57:23 2023 +0200
committer Marc Kupietz <kupietz@ids-mannheim.de> Tue May 09 17:59:29 2023 +0200
tree 8562ebde46f93d873fd999f625c4e46c5441cd65
parent 34dc997ef8ea15a92bb0b41e5cf6d14708e73bbc

Fix bool vector length and R 4.3 compatibility of collocation analysis

Resolves #12

Change-Id: Ifc551e63f77cf9b024e7fd06976d5c5dd9bfac8c

R/collocationAnalysis.R

diff --git a/R/collocationAnalysis.R b/R/collocationAnalysis.R
index fcc80c1..fc9d814 100644
--- a/R/collocationAnalysis.R
+++ b/R/collocationAnalysis.R
@@ -280,7 +280,7 @@
         ""
 #    cat(paste("right:", right, "\n", collapse=" "))
 
-    if(is.na(left) || is.na(right) || length(left) + length(right) == 0) {
+    if(is.na(left[1]) || is.na(right[1]) || length(left) + length(right) == 0) {
       oldTable
     } else {
       table(c(left, right)) %>%