[Distr-commits] r1205 - branches/distr-2.8/pkg/distrMod/R

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

Author: ruckdeschel
Date: 2018-07-18 23:42:57 +0200 (Wed, 18 Jul 2018)
New Revision: 1205

Modified:
   branches/distr-2.8/pkg/distrMod/R/qqplot.R
Log:
[distrMod] in branch 2.8 added item args for plotInfo

Modified: branches/distr-2.8/pkg/distrMod/R/qqplot.R
===================================================================
--- branches/distr-2.8/pkg/distrMod/R/qqplot.R	2018-07-13 17:39:43 UTC (rev 1204)
+++ branches/distr-2.8/pkg/distrMod/R/qqplot.R	2018-07-18 21:42:57 UTC (rev 1205)
@@ -98,7 +98,32 @@
              withSubst = TRUE
     ){ ## return value as in stats::qqplot
 
+    args0 <- list(x = x, y = y, n = n, withIdLine = withIdLine,
+             withConf = withConf, withConf.pw  = withConf.pw,
+             withConf.sim = withConf.sim, plot.it = plot.it, datax = datax,
+             xlab = xlab, ylab = ylab, width = width, height = height,
+             withSweave = withSweave, mfColRow = mfColRow,
+             n.CI = n.CI, withLab = withLab, lab.pts = lab.pts,
+             which.lbs = which.lbs, which.Order = which.Order,
+             order.traf = order.traf, col.IdL = col.IdL, lty.IdL = lty.IdL,
+             lwd.IdL = lwd.IdL, alpha.CI = alpha.CI, exact.pCI = exact.pCI,
+             exact.sCI = exact.sCI, nosym.pCI = nosym.pCI, col.pCI = col.pCI,
+             lty.pCI = lty.pCI, lwd.pCI = lwd.pCI, pch.pCI = pch.pCI,
+             cex.pCI = cex.pCI, col.sCI = col.sCI, lty.sCI = lty.sCI,
+             lwd.sCI = lwd.sCI, pch.sCI = pch.sCI, cex.sCI = cex.sCI,
+             added.points.CI = added.points.CI, cex.pch = cex.pch,
+             col.pch = col.pch, cex.lbl = cex.lbl, col.lbl = col.lbl,
+             adj.lbl = adj.lbl, alpha.trsp = alpha.trsp, jit.fac = jit.fac,
+             jit.tol = jit.tol, check.NotInSupport = check.NotInSupport,
+             col.NotInSupport = col.NotInSupport, with.legend = with.legend,
+             legend.bg = legend.bg, legend.pos = legend.pos,
+             legend.cex = legend.cex, legend.pref = legend.pref,
+             legend.postf = legend.postf, legend.alpha = legend.alpha,
+             debug = debug, withSubst = withSubst)
     mc <- match.call(call = sys.call(sys.parent(1)))
+    dots <- match.call(call = sys.call(sys.parent(1)),
+                       expand.dots = FALSE)$"..."
+    plotInfo <- list(call = mc, dots=dots, args=args0)
     xcc <- as.character(deparse(mc$x))
     ycc <- as.character(deparse(mc$y))
     if(missing(xlab)){ xlab <- mc$xlab <- xcc}
@@ -271,7 +296,7 @@
         }
        }
     }
-    qqplotInfo <- c(call=mc, ret, usr=qq.usr, qqplotInfo, qqb)
+    qqplotInfo <- c(plotInfo, ret, usr=qq.usr, qqplotInfo, qqb)
     class(qqplotInfo) <- c("qqplotInfo","DiagnInfo")
     return(invisible(qqplotInfo))
     })