[Robast-commits] r433 - branches/robast-0.8/pkg/RobAStBase/R

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

Author: ruckdeschel
Date: 2010-11-29 19:05:32 +0100 (Mon, 29 Nov 2010)
New Revision: 433

Modified:
   branches/robast-0.8/pkg/RobAStBase/R/ddPlot_utils.R
Log:
[RobAStBase] function ddPlot: arguments cex.idn and col.idn now if missing first check against arguments cex and col respectively before using defaults par("cex") and par("col") respectively

Modified: branches/robast-0.8/pkg/RobAStBase/R/ddPlot_utils.R
===================================================================
--- branches/robast-0.8/pkg/RobAStBase/R/ddPlot_utils.R	2010-11-29 17:58:07 UTC (rev 432)
+++ branches/robast-0.8/pkg/RobAStBase/R/ddPlot_utils.R	2010-11-29 18:05:32 UTC (rev 433)
@@ -78,8 +78,8 @@
 
 
       if(is.null(adj)) adj <- 0
-      if(is.null(cex.idn)) cex.idn <- 1
-      if(is.null(col.idn)) col.idn <- par("col")
+      if(is.null(cex.idn)) cex.idn <- if(is.null(dots$cex)) 1 else dots$cex
+      if(is.null(col.idn)) col.idn <- if(is.null(dots$col)) par("col") else dots$col
       if(is.null(col.cutoff)) col.cutoff <- "red"
 
       if(is.null(dots$lwd)) dots$lwd <- par("lwd")