[Xts-commits] r751 - in pkg/xts: . R

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

Author: jryan
Date: 2012-12-29 05:30:24 +0100 (Sat, 29 Dec 2012)
New Revision: 751

Modified:
   pkg/xts/DESCRIPTION
   pkg/xts/R/plot.R
   pkg/xts/R/tis.R
   pkg/xts/R/zzz.R
Log:
o  changes to fix WARNINGS from R 3.0 (unstable/dev)
o  bumped version to 0.9-1


Modified: pkg/xts/DESCRIPTION
===================================================================
--- pkg/xts/DESCRIPTION	2012-12-27 15:08:04 UTC (rev 750)
+++ pkg/xts/DESCRIPTION	2012-12-29 04:30:24 UTC (rev 751)
@@ -1,7 +1,7 @@
 Package: xts
 Type: Package
 Title: eXtensible Time Series
-Version: 0.9-0
+Version: 0.9-1
 Date: 2012-10-05
 Author: Jeffrey A. Ryan, Joshua M. Ulrich
 Depends: zoo (>= 1.7-2)

Modified: pkg/xts/R/plot.R
===================================================================
--- pkg/xts/R/plot.R	2012-12-27 15:08:04 UTC (rev 750)
+++ pkg/xts/R/plot.R	2012-12-29 04:30:24 UTC (rev 751)
@@ -70,19 +70,19 @@
 
   if(!'main' %in% names(dots)) title(main=series.title)
   do.call('title',list(...))
-  assign(".plot.xts",recordPlot(),.GlobalEnv)
+  assign(".plot.xts",recordPlot(),.xtsEnv)
 }
 
 .lines.xts <- function(x, ...)
 {
   getxvalues <- function(x) x[[1]][[3]][[2]][[1]]$x
-  last.plot <- if(exists(".plot.xts",.GlobalEnv)) {
-                 get(".plot.xts", .GlobalEnv) } else NULL
+  last.plot <- if(exists(".plot.xts",.xtsEnv)) {
+                 get(".plot.xts", .xtsEnv) } else NULL
   if( identical(getxvalues(last.plot), getxvalues(recordPlot())) ) {
     lines.default(getxvalues(recordPlot()),
                   x, ...)
   } else zoo:::lines.zoo(x, ...)
-  assign(".plot.xts",recordPlot(),.GlobalEnv)
+  assign(".plot.xts",recordPlot(),.xtsEnv)
 }
 
 

Modified: pkg/xts/R/tis.R
===================================================================
--- pkg/xts/R/tis.R	2012-12-27 15:08:04 UTC (rev 750)
+++ pkg/xts/R/tis.R	2012-12-29 04:30:24 UTC (rev 751)
@@ -22,7 +22,7 @@
 # functions to support package:tis
 
 as.POSIXct.tis <- function(x, offset=1, tz="", ...)
-  as.numeric(POSIXct(x, offset, tz, ...))
+  as.numeric(.POSIXct(x,tz))
 
 as.xts.tis <- function(x, offset=1, ...)
 {

Modified: pkg/xts/R/zzz.R
===================================================================
--- pkg/xts/R/zzz.R	2012-12-27 15:08:04 UTC (rev 750)
+++ pkg/xts/R/zzz.R	2012-12-29 04:30:24 UTC (rev 751)
@@ -1,3 +1,6 @@
+# internal package environment for use with lines.xts
+.xtsEnv <- new.env()
+
 .onLoad <- function(libname, pkgname)
 {
 #  if(Sys.getenv("TZ") == "") {