Update shiny demo
Change-Id: I2b5fcd022cdcf07b340f90ca2096299bd8aaaa1c
diff --git a/inst/shiny-apps/frequency_curves/server.R b/inst/shiny-apps/frequency_curves/server.R
index de740bf..67c0cf8 100644
--- a/inst/shiny-apps/frequency_curves/server.R
+++ b/inst/shiny-apps/frequency_curves/server.R
@@ -5,9 +5,9 @@
}
rsr <- new("KorAPConnection", verbose = TRUE, accessToken = NULL)
vc <- "(textType = /Zeit.*/ | textTypeRef=Plenarprotokoll) & availability!=QAO-NC-LOC:ids & creationDate in"
-years <- c(2005:2020)
+years <- c(2005:2021)
from <- 2005
-to <- 2020
+to <- 2021
query <- "Aluhut"
logfile <- file("frequency_curves.log", open = "a")
@@ -45,7 +45,7 @@
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>",
+ "(virtuelles Korpus: <a href='https://korap.ids-mannheim.de/doc/corpus'>DeReKo-KorAP-2022-I</a>",
"eingegrenzt auf Zeitungen, Zeitschriften und Plenarprotokolle).",
"Klicken sie die einzelnen Datenpunkte an, um entsprechende KorAP-Suchen zu starten."
))
@@ -53,7 +53,7 @@
hc
}
-generateHighchart <- function(wordParam, from=2005, to=2020) {
+generateHighchart <- function(wordParam, from=2005, to=2021) {
years <<- c(from:to)
if (wordParam != "") {
query <<- strsplit(wordParam, " *, *")
@@ -78,7 +78,7 @@
to <- queryParams[['to']]
updateSliderInput(session, "to", value = to)
} else {
- to <- 2020
+ to <- 2021
}
if (!is.null(queryParams[['q']])) {
paramWord <- queryParams[['q']]
diff --git a/inst/shiny-apps/frequency_curves/ui.R b/inst/shiny-apps/frequency_curves/ui.R
index f33ea3f..e6dbbdd 100644
--- a/inst/shiny-apps/frequency_curves/ui.R
+++ b/inst/shiny-apps/frequency_curves/ui.R
@@ -27,13 +27,13 @@
),
column(width = 2, offset=3,
sliderInput("from", "Von", sep = "",
- min = 1949, max = 2020,
+ min = 1949, max = 2021,
value = 2005)
),
column(width = 2, offset=0,
sliderInput("to", "Bis", sep = "",
- min = 1949, max = 2020,
- value = 2020)
+ min = 1949, max = 2021,
+ value = 2021)
)
),