[Robast-commits] r1085 - pkg/RobAStBase/R

[noreply at r-forge.r-project.org]

Author: stamats
Date: 2018-08-02 00:29:36 +0200 (Thu, 02 Aug 2018)
New Revision: 1085

Modified:
   pkg/RobAStBase/R/AllPlot.R
   pkg/RobAStBase/R/comparePlot.R
Log:
minor changes: condition length > 1

Modified: pkg/RobAStBase/R/AllPlot.R
===================================================================
--- pkg/RobAStBase/R/AllPlot.R	2018-08-01 19:22:59 UTC (rev 1084)
+++ pkg/RobAStBase/R/AllPlot.R	2018-08-01 22:29:36 UTC (rev 1085)
@@ -243,11 +243,11 @@
             y.vec1 <- resc$Y
 
             finiteEndpoints <- rep(FALSE,4)
-            if(scaleX){
+            if(scaleX[i]){
                finiteEndpoints[1] <- is.finite(scaleX.inv[[i]](min(x.vec1, xlim[1,i])))
                finiteEndpoints[2] <- is.finite(scaleX.inv[[i]](max(x.vec1, xlim[2,i])))
             }
-            if(scaleY){
+            if(scaleY[i]){
                finiteEndpoints[3] <- is.finite(scaleY.inv[[i]](min(y.vec1, ylim[1,i])))
                finiteEndpoints[4] <- is.finite(scaleY.inv[[i]](max(y.vec1, ylim[2,i])))
             }

Modified: pkg/RobAStBase/R/comparePlot.R
===================================================================
--- pkg/RobAStBase/R/comparePlot.R	2018-08-01 19:22:59 UTC (rev 1084)
+++ pkg/RobAStBase/R/comparePlot.R	2018-08-01 22:29:36 UTC (rev 1085)
@@ -592,11 +592,11 @@
             y0[1:2] <- c(ym,yM)
 
             finiteEndpoints <- rep(FALSE,4)
-            if(scaleX){
+            if(scaleX[i]){
                finiteEndpoints[1] <- is.finite(scaleX.inv[[i]](min(x.vec[[i]], xlim[1,i],na.rm=TRUE)))
                finiteEndpoints[2] <- is.finite(scaleX.inv[[i]](max(x.vec[[i]], xlim[2,i],na.rm=TRUE)))
             }
-            if(scaleY){
+            if(scaleY[i]){
                finiteEndpoints[3] <- is.finite(scaleY.inv[[i]](min(ym, ylim[1,i],na.rm=TRUE)))
                finiteEndpoints[4] <- is.finite(scaleY.inv[[i]](max(yM, ylim[2,i],na.rm=TRUE)))
             }