[Seqinr-commits] r1550 - pkg/R

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

Author: lobry
Date: 2009-02-04 16:31:10 +0100 (Wed, 04 Feb 2009)
New Revision: 1550

Modified:
   pkg/R/plotabif.R
Log:
now plotabif returns its local graphical parameter settings

Modified: pkg/R/plotabif.R
===================================================================
--- pkg/R/plotabif.R	2009-02-04 14:03:11 UTC (rev 1549)
+++ pkg/R/plotabif.R	2009-02-04 15:31:10 UTC (rev 1550)
@@ -20,8 +20,9 @@
   allele.names = "identifiler",
   ladder.lab = TRUE,
   ...){
-  	old.par <- par(no.readonly = TRUE)
-  	on.exit(par(old.par))
+
+  old.par <- par(no.readonly = TRUE)
+  on.exit(par(old.par))
   if(is.null(calibr)){
     plot(x, y, type = type, las = las, 
       xlab = xlab, ylab = ylab, xlim = xlim, ylim = ylim, main = main, ...)
@@ -48,4 +49,6 @@
       }
     }
   }
+  locpar <- par(no.readonly = TRUE)
+  invisible(locpar)
 }