[Blotter-commits] r551 - pkg/RTAQ/R

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

Author: jonathan
Date: 2011-02-09 09:40:27 +0100 (Wed, 09 Feb 2011)
New Revision: 551

Modified:
   pkg/RTAQ/R/convert_to_RData.R
Log:


Modified: pkg/RTAQ/R/convert_to_RData.R
===================================================================
--- pkg/RTAQ/R/convert_to_RData.R	2011-02-08 09:08:07 UTC (rev 550)
+++ pkg/RTAQ/R/convert_to_RData.R	2011-02-09 08:40:27 UTC (rev 551)
@@ -54,7 +54,10 @@
     header = FALSE, tradecolnames = NULL, format = "%m/%d/%Y %H:%M:%S") 
 {  
     missingt=matrix(ncol=2,nrow=0);
-
+   
+    suppressWarnings(dir.create(datadestination));
+    suppressWarnings(dir.create(datasource));
+    
     setwd(datasource)
     adjtime = function(z) {
         zz = unlist(strsplit(z, ":"))
@@ -113,6 +116,9 @@
 {
     missingq=matrix(ncol=2,nrow=0);
     
+    suppressWarnings(dir.create(datadestination));
+    suppressWarnings(dir.create(datasource));
+    
     setwd(datasource)
     adjtime = function(z) {
         zz = unlist(strsplit(z, ":"))