Let conditionsOverTime demo use query parameter
Change-Id: Id231729330c6dae0ebccc9a9f5c930f053d2e729
diff --git a/demo/conditionsOverTime.R b/demo/conditionsOverTime.R
index c06a056..3f85f8e 100644
--- a/demo/conditionsOverTime.R
+++ b/demo/conditionsOverTime.R
@@ -11,7 +11,7 @@
conditionsOverTime <- function(query, conditions, years, kco = new("KorAPConnection", verbose = TRUE)) {
g <- expand_grid(condition = conditions, year = years) %>%
- cbind(frequencyQuery(kco, "[tt/l=Heuschrecke]", sprintf("%s & pubDate in %d", .$condition, .$year))) %>%
+ cbind(frequencyQuery(kco, query, sprintf("%s & pubDate in %d", .$condition, .$year))) %>%
ggplot(aes(x = year, y = f, fill=condition, color=condition)) +
geom_point() +
geom_line() +