shiny-demo: use creationDate instead of pubDate
And include Plenarprotokolle into default vc
Change-Id: Ib10db2396f6816d68183fa5b3196e657f9633ee5
diff --git a/demo/shiny-apps/frequency_curves/server.R b/demo/shiny-apps/frequency_curves/server.R
index 26406d9..a7b3b37 100644
--- a/demo/shiny-apps/frequency_curves/server.R
+++ b/demo/shiny-apps/frequency_curves/server.R
@@ -1,6 +1,6 @@
rsr <- new("KorAPConnection", verbose = TRUE)
-vc <- "referTo ratskorpus & pubDate in"
years <- c(1995:2020)
+vc <- "(textType = /Zeit.*/ | textTypeRef=Plenarprotokoll) & availability!=QAO-NC-LOC:ids & creationDate in"
query <- "Aluhut"
logfile <- file("frequency_curves.log", open = "a")
@@ -20,7 +20,8 @@
assignInNamespace("log.info", log.info, "RKorAPClient")
plotHighchart <- function(query = c("Tolpatsch", "Tollpatsch"),
- vc = "referTo ratskorpus & pubDate in",
+ vc = "(textType = /Zeit.*/ | textTypeRef=Plenarprotokoll) & availability!=QAO-NC-LOC:ids & creationDate in"
+,
years = years,
as.alternatives = F,
conf.level = 0.95,
@@ -31,6 +32,14 @@
as.alternatives = as.alternatives) %>%
hc_freq_by_year_ci(as.alternatives, smooth = T) %>%
hc_add_theme(hc_theme_ids_dark())
+ hc_caption(text = paste(
+ "Frequenzverläufe (mit 95%-Konfidenzbändern) im",
+ "<a href='http://www.dereko.de'>Deutschen Referenzkorpus DeReKo</a>",
+ "(virtuelles Korpus: <a href='https://korap.ids-mannheim.de/doc/corpus'>DeReKo-KorAP-2021-I</a>",
+ "eingegrenzt auf Zeitungen, Zeitschriften und Plenarprotokolle).",
+ "Klicken sie die einzelnen Datenpunkte an, um entsprechende KorAP-Suchen zu starten."
+ ))
+
hc
}