[Xts-commits] r664 - pkg/xtsExtra/R

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

Author: weylandt
Date: 2012-07-03 03:08:34 +0200 (Tue, 03 Jul 2012)
New Revision: 664

Modified:
   pkg/xtsExtra/R/plot.R
Log:
Small tweak to do_add.event to remove unused default and pass R CMD check

Modified: pkg/xtsExtra/R/plot.R
===================================================================
--- pkg/xtsExtra/R/plot.R	2012-07-03 01:05:12 UTC (rev 663)
+++ pkg/xtsExtra/R/plot.R	2012-07-03 01:08:34 UTC (rev 664)
@@ -339,7 +339,7 @@
 
 do_add.shading <- function(){}
 
-do_add.event <- function(time, label, col = "red", lty = 2, y = ylim[2]){
+do_add.event <- function(time, label, y, col = "red", lty = 2){
   abline(v = time, col = col, lty = lty)
   text(x = time, y = y, label = label, offset = 0.2, pos = 2, srt = 90, col = col)
 }