Fix RKorapQuery not accepting KorAPUrl only
Change-Id: Ia6eabb3019465db82cfefe0922585c710a5b9f77
diff --git a/R/KorAPQuery.R b/R/KorAPQuery.R
index 98039f3..11d0f6d 100644
--- a/R/KorAPQuery.R
+++ b/R/KorAPQuery.R
@@ -42,7 +42,7 @@
#' \url{https://ids-pub.bsz-bw.de/frontdoor/index/index/docId/9026}
#'
#' @export
-KorAPQuery <- function(con, query, vc = NA, KorAPUrl = NA, metadataOnly = TRUE, ql = "poliqarp", fields = defaultFields,
+KorAPQuery <- function(con, query = NA, vc = NA, KorAPUrl = NA, metadataOnly = TRUE, ql = "poliqarp", fields = defaultFields,
accessRewriteFatal = TRUE) {
if (is.na(query) && is.na(KorAPUrl) || ! (is.na(query) || is.na(KorAPUrl))) {
stop("Exactly one of the parameters query and KorAPUrl must be specified.")