Add newline to CA log messages
Change-Id: I5b830b6e96e556d386ec4174f57c85b770ae28f2
diff --git a/R/collocationAnalysis.R b/R/collocationAnalysis.R
index 0df5bea..2443f8f 100644
--- a/R/collocationAnalysis.R
+++ b/R/collocationAnalysis.R
@@ -167,7 +167,7 @@
if (length(snippet) < 1) {
dplyr::tibble(word=c(), frequency=c())
} else if (length(snippet) > 1) {
- log.info(verbose, paste("Joinging", length(snippet), "kwics"))
+ log.info(verbose, paste("Joinging", length(snippet), "kwics\n"))
for (s in snippet) {
oldTable <- snippet2FreqTable(
s,
@@ -177,7 +177,7 @@
stopwords = stopwords
)
}
- log.info(verbose, paste("Aggregating", length(oldTable$word), "tokens"))
+ log.info(verbose, paste("Aggregating", length(oldTable$word), "tokens\n"))
oldTable %>%
group_by(word) %>%
mutate(word = dplyr::case_when(ignoreCollocateCase ~ tolower(word), TRUE ~ word)) %>%