commit 71d6e058d94a76b44e1ff0134867d7a3c939f2d6
author Marc Kupietz <kupietz@ids-mannheim.de> Fri Nov 22 18:42:10 2019 +0100
committer Marc Kupietz <kupietz@ids-mannheim.de> Fri Nov 22 18:47:00 2019 +0100
tree 0c33143ab1b8cfbe1f74da73d901bee4916a5367
parent 96f00f6b3c21fb3fd6bcffbaf754621b8813142c

Add as.alternative parameter to frequencyQuery method

And also rename "tokens" to the more generic "total" in the result
tibble.

Change-Id: Iae2ec16307f993e5b95792f2f66c6a38dc9ff67d

demo/frequenciesOverDomains.R

diff --git a/demo/frequenciesOverDomains.R b/demo/frequenciesOverDomains.R
index a991e25..cf02649 100755
--- a/demo/frequenciesOverDomains.R
+++ b/demo/frequenciesOverDomains.R
@@ -13,7 +13,7 @@
     group_by(Domain) %>%
     dplyr::filter(!is.na(Domain)) %>%
     summarise(count = dplyr::n()) %>%
-    mutate(tokens = (corpusStats(con, sprintf("textClass = /%s.*/", .$Domain)))$tokens) %>%
+    mutate(total = (corpusStats(con, sprintf("textClass = /%s.*/", .$Domain)))$tokens) %>%
     ci(x = count) %>%
     ipm() %>%
     { df <<- . } %>%