Explicitly set accessToken to NULL in all tests
Change-Id: Id98d918b9668a8ea5720e790835a34604c52b350
diff --git a/tests/testthat/test-demos.R b/tests/testthat/test-demos.R
index b51a4cd..2e1a0a3 100644
--- a/tests/testthat/test-demos.R
+++ b/tests/testthat/test-demos.R
@@ -2,7 +2,7 @@
skip_if_offline()
year <- c(2013:2018)
alternatives <- c("macht []{0,3} Sinn", "ergibt []{0,3} Sinn")
- hc <- new("KorAPConnection", verbose = TRUE) %>%
+ hc <- new("KorAPConnection", accessToken = NULL, verbose = TRUE) %>%
frequencyQuery(
query = alternatives,
vc = paste("textType = /Zeit.*/ & pubDate in", year),
@@ -17,7 +17,7 @@
year <- c(2013:2018)
alternatives <- c("macht []{0,3} Sinn", "ergibt []{0,3} Sinn")
- hc <- new("KorAPConnection", verbose = TRUE) %>%
+ hc <- new("KorAPConnection", accessToken = NULL, verbose = TRUE) %>%
frequencyQuery(
query = alternatives,
vc = paste("textType = /Zeit.*/ & pubDate in", year),
@@ -32,7 +32,7 @@
year <- c(2013:2018)
alternatives <- c("macht []{0,3} Sinn", "ergibt []{0,3} Sinn")
- hc <- new("KorAPConnection", verbose = TRUE) %>%
+ hc <- new("KorAPConnection", accessToken = NULL, verbose = TRUE) %>%
frequencyQuery(
query = alternatives,
vc = paste("textType = /Zeit.*/ & pubDate in", year),
@@ -47,7 +47,7 @@
year <- c(2013:2018)
q <- c("macht []{0,3} Sinn")
- hc <- new("KorAPConnection", verbose = TRUE) %>%
+ hc <- new("KorAPConnection", accessToken = NULL, verbose = TRUE) %>%
frequencyQuery(
query = q,
vc = paste("textType = /Zeit.*/ & pubDate in", year),
@@ -59,7 +59,7 @@
test_that("Auto conditions over time highcharter example works", {
skip_if_offline()
- kco <- new("KorAPConnection", verbose=TRUE)
+ kco <- new("KorAPConnection", accessToken = NULL, verbose=TRUE)
hc <- expand_grid(
myconditions = c("textDomain = /Wirtschaft.*/",
"textDomain != /Wirtschaft.*/"),
@@ -76,7 +76,7 @@
test_that("Single condition over time highcharter example works", {
skip_if_offline()
- kco <- new("KorAPConnection", verbose=TRUE)
+ kco <- new("KorAPConnection", accessToken = NULL, verbose=TRUE)
hc <- expand_grid(
condition = c("textDomain = /Wirtschaft.*/"),
year = (2011:2013)
@@ -92,7 +92,7 @@
test_that("Multiple conditions over time highcharter example works", {
skip_if_offline()
- kco <- new("KorAPConnection", verbose=TRUE)
+ kco <- new("KorAPConnection", accessToken = NULL, verbose=TRUE)
hc <- expand_grid(
condition = c("textDomain = /Wirtschaft.*/",
"textDomain != /Wirtschaft.*/"),
@@ -109,7 +109,7 @@
test_that("Multiple conditions and queries over time highcharter example works", {
skip_if_offline()
- kco <- new("KorAPConnection", verbose=TRUE)
+ kco <- new("KorAPConnection", accessToken = NULL, verbose=TRUE)
hc <- expand_grid(
qx = c("[tt/l=Heuschrecke]", "Ameise"),
condition = c("textDomain = /Wirtschaft.*/",
@@ -127,7 +127,7 @@
test_that("collocationScoreQuery works with hchart and hc_add_onclick_korap_search", {
skip_if_offline()
- kco <- new("KorAPConnection", cache = TRUE, verbose = TRUE)
+ kco <- new("KorAPConnection", accessToken = NULL, cache = TRUE, verbose = TRUE)
df <- collocationScoreQuery(kco,"Ameisenplage", "heimgesucht", leftContextSize=0, rightContextSize=1)
hc <- hchart(df, type="spline", hcaes(label, logDice))
hc <- hc_add_onclick_korap_search(hc)