commit 1b69abf2b31a2af0a4e91f2e2133d173dea53ae4
author Marc Kupietz <kupietz@ids-mannheim.de> Fri Nov 08 17:08:55 2019 +0100
committer Marc Kupietz <kupietz@ids-mannheim.de> Fri Nov 08 17:36:36 2019 +0100
tree 60b926dda2d2f0e67404212dc5e49943648aa112
parent 7715e9d0cffc6875059c5565b5c5b7c825bb2357

Fix type error in frequencies over domains example

In tidyverse not everything is a factor.

Change-Id: I91dbdc8fefbab65f4a7d5203fbb8a9cb70631a0a

demo/frequenciesOverDomains.R

diff --git a/demo/frequenciesOverDomains.R b/demo/frequenciesOverDomains.R
index 12b2edc..a991e25 100755
--- a/demo/frequenciesOverDomains.R
+++ b/demo/frequenciesOverDomains.R
@@ -9,9 +9,9 @@
   g <- corpusQuery(con, query = query, vc="") %>%
     fetchAll() %>%
     slot("collectedMatches") %>%
-    mutate(Domain = sapply(strsplit(as.character(.$textClass), " "), `[[`, 1)) %>%
+    mutate(Domain = factor(sapply(strsplit(as.character(.$textClass), " "), `[[`, 1))) %>%
     group_by(Domain) %>%
-    filter(!is.na(Domain)) %>%
+    dplyr::filter(!is.na(Domain)) %>%
     summarise(count = dplyr::n()) %>%
     mutate(tokens = (corpusStats(con, sprintf("textClass = /%s.*/", .$Domain)))$tokens) %>%
     ci(x = count) %>%