Fix print() when 'quote' or 'right' are provided

Calling print.xts() with either of these arguments specified would throw
an error. Thanks to @WillemMaetens for the report and patch!

Fixes #401.

R/print.R

@@ -30,6 +30,8 @@ print.xts <-
   nr <- NROW(x)
   nc <- NCOL(x)
 
+  dots <- list(...)
+
   if (missing(max.rows)) {
     # the user didn't specify a value; use the global option value if it's
     # set; if it's not set, use the default value
@@ -43,9 +45,8 @@ print.xts <-
       show.rows <- 0
     } else {
       # convert 'max' to 'show.rows'
-      max.arg <- match.call()$max
-      if (!is.null(max.arg)) {
-        show.rows <- trunc(max.arg / nc)
+      if (!is.null(dots$max)) {
+        show.rows <- trunc(dots$max / nc)
       }
     }
   } else if (missing(show.rows)) {
@@ -62,10 +63,10 @@ print.xts <-
   }
 
   if (!hasArg("quote")) {
-    quote <- FALSE
+    dots$quote <- FALSE
   }
   if (!hasArg("right")) {
-    right <- TRUE
+    dots$right <- TRUE
   }
 
   if (nr > max.rows && nr > 2 * show.rows) {
@@ -127,7 +128,7 @@ print.xts <-
       colnames(y) <- paste0("[,", seq_len(ncol(y)), "]")
     }
 
-    print(y, quote = quote, right = right, ...)
+    do.call("print", c(list(y), dots))
   }
 
   invisible(x)

inst/tinytest/test-print.R

@@ -40,3 +40,9 @@ expect_identical(p, x, info = "returns input invisibly")
 
 z <- .xts(matrix(0, nrow = 200, ncol = 200), 1:200)
 expect_silent(print(z), info = "print more columns than width doesn't error")
+
+expect_silent(print(x, quote = TRUE),
+              info = "print.xts() does not error when 'quote' argument is used")
+
+expect_silent(print(x, right = TRUE),
+              info = "print.xts() does not error when 'right' argument is used")