[Robast-commits] r947 - branches/robast-1.1/pkg/RobAStBase/R

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

Author: ruckdeschel
Date: 2018-07-13 02:50:20 +0200 (Fri, 13 Jul 2018)
New Revision: 947

Modified:
   branches/robast-1.1/pkg/RobAStBase/R/ddPlot_utils.R
Log:
[RobAstBase] branch 1.1 added usr info to ddPlot 

Modified: branches/robast-1.1/pkg/RobAStBase/R/ddPlot_utils.R
===================================================================
--- branches/robast-1.1/pkg/RobAStBase/R/ddPlot_utils.R	2018-07-13 00:34:45 UTC (rev 946)
+++ branches/robast-1.1/pkg/RobAStBase/R/ddPlot_utils.R	2018-07-13 00:50:20 UTC (rev 947)
@@ -277,6 +277,7 @@
         abtdots.y$x <- if(is.null(text.abline.y.x)) mid.x else text.abline.y.x
         abtdots.x$y <- if(is.null(text.abline.x.y)) mid.y else text.abline.x.y
 
+        plotInfo$usr <- pusr
         plotInfo$ablineV <- c(list(v=co.x), abdots[[1]])
         plotInfo$ablineH <- c(list(h=co.y), abdots[[2]])
         do.call(abline, args = c(list(v=co.x), abdots[[1]]))