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")