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

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

Author: bodanker
Date: 2014-08-21 21:51:20 +0200 (Thu, 21 Aug 2014)
New Revision: 830

Modified:
   pkg/xtsExtra/R/plot2.R
Log:
- s/gird/grid (thanks to Samo Pahor and Kyle Balkissoon)


Modified: pkg/xtsExtra/R/plot2.R
===================================================================
--- pkg/xtsExtra/R/plot2.R	2014-08-17 22:43:09 UTC (rev 829)
+++ pkg/xtsExtra/R/plot2.R	2014-08-21 19:51:20 UTC (rev 830)
@@ -483,14 +483,14 @@
                  # y-axis grid lines
                  expression(segments(1,y_grid_lines(ylim),
                                      NROW(xdata[xsubset]), y_grid_lines(ylim), 
-                                     col=theme$grid, lwd=gird.ticks.lwd, lty=grid.ticks.lty)),
+                                     col=theme$grid, lwd=grid.ticks.lwd, lty=grid.ticks.lty)),
                  # x-axis grid lines
                  expression(atbt <- axTicksByTime2(xdata[xsubset]),
                             segments(atbt, #axTicksByTime2(xdata[xsubset]),
                                      ylim[1],
                                      atbt, #axTicksByTime2(xdata[xsubset]),
                                      ylim[2], 
-                                     col=theme$grid, lwd=gird.ticks.lwd, lty=grid.ticks.lty)))
+                                     col=theme$grid, lwd=grid.ticks.lwd, lty=grid.ticks.lty)))
         if(yaxis.left){
           exp <- c(exp, 
                    # y-axis labels/boxes