Replace our log.info with log_info to avoid name clashes
Change-Id: Ib2d9b4a22d4d4e761b7b22fc8ad2b377658742d4
diff --git a/R/collocationAnalysis.R b/R/collocationAnalysis.R
index edc427d..fcc80c1 100644
--- a/R/collocationAnalysis.R
+++ b/R/collocationAnalysis.R
@@ -243,7 +243,7 @@
if (length(snippet) < 1) {
dplyr::tibble(word=c(), frequency=c())
} else if (length(snippet) > 1) {
- log.info(verbose, paste("Joining", length(snippet), "kwics\n"))
+ log_info(verbose, paste("Joining", length(snippet), "kwics\n"))
for (s in snippet) {
oldTable <- snippet2FreqTable(
s,
@@ -254,7 +254,7 @@
stopwords = stopwords
)
}
- log.info(verbose, paste("Aggregating", length(oldTable$word), "tokens\n"))
+ log_info(verbose, paste("Aggregating", length(oldTable$word), "tokens\n"))
oldTable %>%
group_by(word) %>%
mutate(word = dplyr::case_when(ignoreCollocateCase ~ tolower(word), TRUE ~ word)) %>%