use append_keepTZ in set_side_lim

USGS-R · Nov 7, 2016 · 1d36600 · 1d36600
1 parent f9174ae
commit 1d36600
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/R/utils-side.R b/R/utils-side.R
@@ -208,7 +208,10 @@ set_side_lim <- function(args, side, side.num){
   if(any(free.lim)){
     side.vals <- strip_pts(args, include)
     if (any(!is.na(side.vals))){
-      data.range <- range(c(side.vals[is.finite(side.vals)], side$lim), na.rm = TRUE)
+      data.range <- range(append_keepTZ(base.vals=side.vals[is.finite(side.vals)], 
+                                        append.vals=side$lim, 
+                                        tz=attr(side.vals, 'tzone')), 
+                          na.rm = TRUE)
       data.range[!free.lim] <- side$lim[!free.lim]
       side$lim <- data.range
     }