Fix printing of virtual corpus description
Change-Id: Ie3a6f3eca6f66150929b80062d0734288ad0f3bf
diff --git a/R/KorAPQuery.R b/R/KorAPQuery.R
index f3c286a..596cd90 100644
--- a/R/KorAPQuery.R
+++ b/R/KorAPQuery.R
@@ -363,9 +363,9 @@
cat("<KorAPQuery>\n")
q <- x
aurl = parse_url(q@request)
- cat(" Query: ", aurl$query$q, "\n")
- if (!is.null(aurl$query$vc) && aurl$query$vc != "") {
- cat("Virtual corpus: ", aurl$query$vc, "\n")
+ cat(" Query: ", aurl$query$q, "\n")
+ if (!is.null(aurl$query$cq) && aurl$query$cq != "") {
+ cat(" Virtual corpus: ", aurl$query$cq, "\n")
}
if (!is.null(q@collectedMatches)) {
cat("==============================================================================================================", "\n")