Add more donttests to stay below 5s for each test
Change-Id: I4dde61ce4847f8c7067870256c14fe8998d18e0c
diff --git a/man/ggplotly.Rd b/man/ggplotly.Rd
index 881faaa..9b09c25 100644
--- a/man/ggplotly.Rd
+++ b/man/ggplotly.Rd
@@ -23,9 +23,9 @@
\examples{
library(ggplot2)
kco <- new("KorAPConnection", verbose=TRUE)
-\donttest{year = (2003:2011)}\dontshow{year = c(2005)}
-g <- expand_grid(condition = c("textDomain = /Wirtschaft.*/", "textDomain != /Wirtschaft.*/"),
- year) \%>\%
+\donttest{year <- (2003:2011)}\dontshow{year <- c(2005)}
+\donttest{condition <- c("textDomain = /Wirtschaft.*/", "textDomain != /Wirtschaft.*/")}\dontshow{condition <- c("textDomain = /Wirtschaft.*/")}
+g <- expand_grid(condition, year) \%>\%
cbind(frequencyQuery(kco, "[tt/l=Heuschrecke]",
paste0(.$condition," & pubDate in ", .$year))) \%>\%
ipm() \%>\%