commit 581a29bff65254a76be746256a0b756ced6d9dc1
author Marc Kupietz <kupietz@ids-mannheim.de> Sat Sep 04 20:51:04 2021 +0200
committer Marc Kupietz <kupietz@ids-mannheim.de> Sat Sep 04 20:51:04 2021 +0200
tree 28ea67e46488d48e2396acce1c1ee99545e9482e
parent d07bf197d23200ba05e99ef56dec8e90fc1905e3

CA: warn if no access token present

Change-Id: Iec2e57edc7bb62bfed23672ada549252ba03518e

R/collocationAnalysis.R

diff --git a/R/collocationAnalysis.R b/R/collocationAnalysis.R
index 2443f8f..b6592c3 100644
--- a/R/collocationAnalysis.R
+++ b/R/collocationAnalysis.R
@@ -85,6 +85,8 @@
               stop(sprintf("Not empty withinSpan (='%s') requires exactFrequencies=TRUE", withinSpan), call. = FALSE)
             }
 
+            warnIfNoAccessToken(kco)
+
             if (lemmatizeNodeQuery) {
               node <- lemmatizeWordQuery(node)
             }
@@ -314,5 +316,3 @@
         filter(frequency >= minOccur)
     }
   }
-
-