From f88fe135df18321087e278cd2371bbd33c068419 Mon Sep 17 00:00:00 2001
From: HughParsonage <hugh.parsonage@gmail.com>
Date: Thu, 27 Sep 2018 23:54:33 +1000
Subject: [PATCH] 270 fix len logic2 (#1)

* Fix if class(order.by) > 1

When class(order.by) has a length other than one, it will reach this
line but only the first element will be used.  We should make this
explicit and indeed must in case the environment variable _R_CHECK_LENGTH_1_LOGIC2_ is set, whereupon this line will emit an error
or warning.
---
 R/xts.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/xts.R b/R/xts.R
index d49c9130..4bb062c2 100644
--- a/R/xts.R
+++ b/R/xts.R
@@ -76,7 +76,7 @@ function(x=NULL,
     x <- as.matrix(x)
   } else x <- numeric(0)
 
-  if(orderBy == "timeDate" && missing(tzone)) {
+  if(orderBy[1L] == "timeDate" && missing(tzone)) {
     tzone <- order.by@FinCenter
   } else
   if(!is.null(attr(order.by,"tzone")) && missing(tzone))