Replace our log.info with log_info to avoid name clashes
Change-Id: Ib2d9b4a22d4d4e761b7b22fc8ad2b377658742d4
diff --git a/inst/shiny-apps/frequency_curves/server.R b/inst/shiny-apps/frequency_curves/server.R
index 67c0cf8..2094490 100644
--- a/inst/shiny-apps/frequency_curves/server.R
+++ b/inst/shiny-apps/frequency_curves/server.R
@@ -11,8 +11,8 @@
query <- "Aluhut"
logfile <- file("frequency_curves.log", open = "a")
-# override log.info in RKorAPClient to get some progress info
-log.info <- function(v, ...) {
+# override log_info in RKorAPClient to get some progress info
+log_info <- function(v, ...) {
original = paste0(...)
detail <- if (str_detect(original, "Searching.*in ([0-9]{4})")) {
str_replace(original, ".*in ([0-9]{4}).*", "Suche in \\1")
@@ -26,7 +26,7 @@
flush(logfile)
}
-assignInNamespace("log.info", log.info, "RKorAPClient")
+assignInNamespace("log_info", log_info, "RKorAPClient")
plotHighchart <- function(query = c("Tolpatsch", "Tollpatsch"),
vc = "(textType = /Zeit.*/ | textTypeRef=Plenarprotokoll) & availability!=QAO-NC-LOC:ids & creationDate in"