[Blotter-commits] r1326 - pkg/quantstrat/inst/tests

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

Author: milktrader
Date: 2012-12-30 19:03:43 +0100 (Sun, 30 Dec 2012)
New Revision: 1326

Modified:
   pkg/quantstrat/inst/tests/blue.R
Log:
blue.R TZ management code

Modified: pkg/quantstrat/inst/tests/blue.R
===================================================================
--- pkg/quantstrat/inst/tests/blue.R	2012-12-30 16:42:08 UTC (rev 1325)
+++ pkg/quantstrat/inst/tests/blue.R	2012-12-30 18:03:43 UTC (rev 1326)
@@ -12,16 +12,16 @@
 #
 ################### LOAD QUANTSTRAT #################
 
-suppressMessages(require(quantstrat))
+require(quantstrat))
 
 ###################### LOAD DATA ######################
 
-data('spx')
+data(spx)
 
-############### TIMEZONE INIT #########################
+############### TIMEZONE HOUSEKEEPING #########################
 
-local_time = Sys.timezone()
-attr(attr(spx,"index"),"tzone") <- local_time 
+local_TZ = Sys.getenv("TZ")
+Sys.unsetenv("TZ")
 
 ############################# DEFINE VARIABLES ##############################
 
@@ -131,4 +131,6 @@
 
 book = getOrderBook(port)
 
+############################### RESET TZ TO ORIGINAL SETTING ########
 
+Sys.setenv(TZ = local_TZ)