Reduce year intervals in testthats to save testing time
Change-Id: I8435c1386a98307e1103c6559e93533e9c45c362
diff --git a/tests/testthat/test-demos.R b/tests/testthat/test-demos.R
index 1269760..bfc8f2e 100644
--- a/tests/testthat/test-demos.R
+++ b/tests/testthat/test-demos.R
@@ -1,7 +1,6 @@
test_that("Alternatives over time highcharter example works", {
- year <- c(1990:2018)
+ year <- c(2013:2018)
alternatives <- c("macht []{0,3} Sinn", "ergibt []{0,3} Sinn")
-
hc <- new("KorAPConnection", verbose = TRUE) %>%
frequencyQuery(
query = alternatives,
@@ -59,7 +58,7 @@
hc <- expand_grid(
myconditions = c("textDomain = /Wirtschaft.*/",
"textDomain != /Wirtschaft.*/"),
- year = (2009:2013)
+ year = (2011:2013)
) %>%
cbind(frequencyQuery(
kco,
@@ -74,7 +73,7 @@
kco <- new("KorAPConnection", verbose=TRUE)
hc <- expand_grid(
condition = c("textDomain = /Wirtschaft.*/"),
- year = (2009:2013)
+ year = (2011:2013)
) %>%
cbind(frequencyQuery(
kco,
@@ -90,7 +89,7 @@
hc <- expand_grid(
condition = c("textDomain = /Wirtschaft.*/",
"textDomain != /Wirtschaft.*/"),
- year = (2009:2013)
+ year = (2011:2013)
) %>%
cbind(frequencyQuery(
kco,
@@ -107,7 +106,7 @@
qx = c("[tt/l=Heuschrecke]", "Ameise"),
condition = c("textDomain = /Wirtschaft.*/",
"textDomain != /Wirtschaft.*/"),
- year = (2009:2013)
+ year = (2011:2013)
) %>%
cbind(frequencyQuery(
kco,
@@ -123,7 +122,7 @@
p <- expand_grid(
condition = c("textDomain = /Wirtschaft.*/",
"textDomain != /Wirtschaft.*/"),
- year = (2009:2013)
+ year = (2010:2013)
) %>%
cbind(frequencyQuery(
kco,