Fix long lines in documentation complaints
Change-Id: Ifd48b9b3a6714f2bbae4d99317a225b8818d2bcc
diff --git a/R/KorAPQuery.R b/R/KorAPQuery.R
index b70a2e2..a204390 100644
--- a/R/KorAPQuery.R
+++ b/R/KorAPQuery.R
@@ -40,9 +40,18 @@
#' q <- KorAPFetchAll(q)
#' summary(q$collectedMatches)
#'
-#' q <- KorAPQuery(con, KorAPUrl = "https://korap.ids-mannheim.de/?q=Ameise&cq=pubDate+since+2017&ql=poliqarp&cutoff=1")
+#' q <- KorAPQuery(con,
+#' KorAPUrl = "https://korap.ids-mannheim.de/?q=Ameise&cq=pubDate+since+2017&ql=poliqarp")
#' q$meta$totalResults
#'
+#' q <- KorAPQuery(con, "Ameisenplage")
+#' q <- KorAPFetchAll(q, verbose=TRUE)
+#' tokensPerYear <- function(year) { return(KorAPCorpusStats(con, paste("pubDate in", year))$tokens) }
+#' df <- as.data.frame(table(as.numeric(format(q$collectedMatches$pubDate,"%Y")), dnn="year"),
+#' stringsAsFactors = FALSE)
+#' df$ipm <- 1000000 * df$Freq / tokensPerYear(df$year)
+#' plot(df$year, df$ipm, type="l")
+#'
#' @seealso \code{\link{KorAPConnection}}, \code{\link{KorAPFetchNext}}, \code{\link{KorAPFetchRest}}, \code{\link{KorAPFetchAll}}, \code{\link{KorAPCorpusStats}}
#'
#' @references
@@ -60,8 +69,7 @@
ql <- QueryParameterFromUrl(KorAPUrl, "ql")
}
request <- paste0('?q=', URLencode(query, reserved=TRUE),
- ifelse(vc != '', paste0('&vc=', URLencode(vc, reserved=TRUE)), ''),
- '&ql=', ql);
+ ifelse(vc != '', paste0('&cq=', URLencode(vc, reserved=TRUE)), ''), '&ql=', ql)
webUIRequestUrl <- paste0(con$KorAPUrl, request)
requestUrl <- paste0(con$apiUrl, 'search', request,
'&fields=', paste(defaultFields, collapse = ","),