Don't run long running and redundant tests by default
use --run-donttest to run them
Change-Id: Idec047eff02b9a3e2dababc6c6fc0347ca43e5de
diff --git a/man/KorAPConnection-class.Rd b/man/KorAPConnection-class.Rd
index 8f837f1..9f796f3 100644
--- a/man/KorAPConnection-class.Rd
+++ b/man/KorAPConnection-class.Rd
@@ -89,9 +89,11 @@
New \code{KorAPConnection} objects can be created by \code{new("KorAPConnection")}.
}
\examples{
+\donttest{
kcon <- new("KorAPConnection", verbose = TRUE)
kq <- corpusQuery(kcon, "Ameisenplage")
kq <- fetchAll(kq)
+}
\dontrun{
kcon <- new("KorAPConnection", verbose = TRUE, accessToken="e739u6eOzkwADQPdVChxFg")
diff --git a/man/KorAPQuery-class.Rd b/man/KorAPQuery-class.Rd
index 17b1326..262c10b 100644
--- a/man/KorAPQuery-class.Rd
+++ b/man/KorAPQuery-class.Rd
@@ -119,14 +119,23 @@
virtual corpora.
}
\examples{
-q <- new("KorAPConnection") \%>\% corpusQuery("Ameisenplage") \%>\% fetchAll()
+q <- new("KorAPConnection") \%>\% corpusQuery("Ameisenplage") \%>\% fetchNext()
q@collectedMatches
+\donttest{
q <- new("KorAPConnection") \%>\% corpusQuery("Ameisenplage") \%>\% fetchAll()
q@collectedMatches
+}
+\donttest{
+q <- new("KorAPConnection") \%>\% corpusQuery("Ameisenplage") \%>\% fetchRest()
+q@collectedMatches
+}
+
+\donttest{
new("KorAPConnection", verbose = TRUE) \%>\%
frequencyQuery(c("Mücke", "Schnake"), paste0("pubDate in ", 2000:2003))
+}
}
\references{
diff --git a/man/ci.Rd b/man/ci.Rd
index ee6e18d..6cf9bef 100644
--- a/man/ci.Rd
+++ b/man/ci.Rd
@@ -23,6 +23,7 @@
3. upper bound of a confidence interval
}
\examples{
+\donttest{
library(ggplot2)
kco <- new("KorAPConnection", verbose=TRUE)
expand_grid(year=2015:2018, alternatives=c("Hate Speech", "Hatespeech")) \%>\%
@@ -31,7 +32,7 @@
ci() \%>\%
ggplot(aes(x=year, y=f, fill=query, color=query, ymin=conf.low, ymax=conf.high)) +
geom_point() + geom_line() + geom_ribbon(alpha=.3)
-
+}
}
\seealso{
\code{ci} is alread included in \code{\link{frequencyQuery}}
diff --git a/man/corpusQuery-KorAPConnection-method.Rd b/man/corpusQuery-KorAPConnection-method.Rd
index 955cd0c..d8af528 100644
--- a/man/corpusQuery-KorAPConnection-method.Rd
+++ b/man/corpusQuery-KorAPConnection-method.Rd
@@ -65,6 +65,7 @@
"https://korap.ids-mannheim.de/?q=Ameise&cq=pubDate+since+2017&ql=poliqarp")
# Plot the time/frequency curve of "Ameisenplage"
+\donttest{
new("KorAPConnection", verbose=TRUE) \%>\%
{ . ->> kco } \%>\%
corpusQuery("Ameisenplage") \%>\%
@@ -79,7 +80,7 @@
dplyr::select(-Count) \%>\%
complete(year = min(year):max(year), fill = list(Freq = 0)) \%>\%
plot(type = "l")
-
+}
}
\references{
\url{https://ids-pub.bsz-bw.de/frontdoor/index/index/docId/9026}
diff --git a/man/geom_freq_by_year_ci.Rd b/man/geom_freq_by_year_ci.Rd
index 10bfc94..ef53526 100644
--- a/man/geom_freq_by_year_ci.Rd
+++ b/man/geom_freq_by_year_ci.Rd
@@ -18,6 +18,7 @@
\examples{
library(ggplot2)
kco <- new("KorAPConnection", verbose=TRUE)
+\donttest{
expand_grid(condition = c("textDomain = /Wirtschaft.*/", "textDomain != /Wirtschaft.*/"),
year = (2005:2011)) \%>\%
cbind(frequencyQuery(kco, "[tt/l=Heuschrecke]",
@@ -25,5 +26,5 @@
ipm() \%>\%
ggplot(aes(year, ipm, fill = condition, color = condition)) +
geom_freq_by_year_ci()
-
+}
}
diff --git a/man/ggplotly.Rd b/man/ggplotly.Rd
index bd0d04b..7013f05 100644
--- a/man/ggplotly.Rd
+++ b/man/ggplotly.Rd
@@ -23,13 +23,14 @@
\examples{
library(ggplot2)
kco <- new("KorAPConnection", verbose=TRUE)
+\donttest{year = (2003:2011)}\dontshow{year = (2005:2006)}
g <- expand_grid(condition = c("textDomain = /Wirtschaft.*/", "textDomain != /Wirtschaft.*/"),
- year = (2002:2018)) \%>\%
+ year) \%>\%
cbind(frequencyQuery(kco, "[tt/l=Heuschrecke]",
paste0(.$condition," & pubDate in ", .$year))) \%>\%
ipm() \%>\%
ggplot(aes(year, ipm, fill = condition, color = condition)) +
-## theme_light(base_size = 20) +
+ ## theme_light(base_size = 20) +
geom_freq_by_year_ci()
p <- ggplotly(g)
print(p)
diff --git a/man/hc_freq_by_year_ci.Rd b/man/hc_freq_by_year_ci.Rd
index 8daa145..0781eb8 100644
--- a/man/hc_freq_by_year_ci.Rd
+++ b/man/hc_freq_by_year_ci.Rd
@@ -22,12 +22,14 @@
\bold{Warning:} This function may be moved to a new package.
}
\examples{
+\donttest{year <- c(1990:2018)}\dontshow{year <- c(2013:2014)}
new("KorAPConnection", verbose = TRUE) \%>\%
frequencyQuery(query = c("macht []{0,3} Sinn", "ergibt []{0,3} Sinn"),
- vc = paste("textType = /Zeit.*/ & pubDate in", c(2010:2014)),
+ vc = paste("textType = /Zeit.*/ & pubDate in", year),
as.alternatives = TRUE) \%>\%
hc_freq_by_year_ci(as.alternatives = TRUE)
+\donttest{
kco <- new("KorAPConnection", verbose = TRUE)
expand_grid(
condition = c("textDomain = /Wirtschaft.*/", "textDomain != /Wirtschaft.*/"),
@@ -39,5 +41,6 @@
paste0(.$condition, " & pubDate in ", .$year)
)) \%>\%
hc_freq_by_year_ci()
+}
}
diff --git a/man/ipm.Rd b/man/ipm.Rd
index ed82d36..e4b5aec 100644
--- a/man/ipm.Rd
+++ b/man/ipm.Rd
@@ -21,5 +21,7 @@
und multiplies conf.low and \code{conf.high} with 10^6.
}
\examples{
+\donttest{
new("KorAPConnection") \%>\% frequencyQuery("Test", paste0("pubDate in ", 2000:2002)) \%>\% ipm()
}
+}
diff --git a/man/percent.Rd b/man/percent.Rd
index 06e2fb3..13a1673 100644
--- a/man/percent.Rd
+++ b/man/percent.Rd
@@ -17,9 +17,11 @@
(generated with \code{as.alternatives=T}) to percent.
}
\examples{
+\donttest{
new("KorAPConnection") \%>\%
frequencyQuery(c("Tollpatsch", "Tolpatsch"),
vc=paste0("pubDate in ", 2000:2002),
as.alternatives = TRUE) \%>\%
percent()
}
+}