[Blotter-commits] r732 - pkg/FinancialInstrument/sandbox

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

Author: braverock
Date: 2011-08-17 13:30:49 +0200 (Wed, 17 Aug 2011)
New Revision: 732

Modified:
   pkg/FinancialInstrument/sandbox/TRTH_BackFill.R
Log:
- update config section to source a config file

Modified: pkg/FinancialInstrument/sandbox/TRTH_BackFill.R
===================================================================
--- pkg/FinancialInstrument/sandbox/TRTH_BackFill.R	2011-08-16 19:38:35 UTC (rev 731)
+++ pkg/FinancialInstrument/sandbox/TRTH_BackFill.R	2011-08-17 11:30:49 UTC (rev 732)
@@ -1,26 +1,30 @@
 ##############################################################################
 #                     Reuters Backfill Configuration Parameters              #         
 ##############################################################################
-instrument_file <- '/full/path/to/instruments.rda' #where your instrument metadata is stored
-
-archive_dir <- "/full/path/to/archives/" # where the split CSV, job reports, and gz files will be stored
-path.output <- "/full/path/to/output/" # root dir where the .rda files for the xts will be placed
-
-job.name <- "mybackfill" # the Reuters TRTH job name
-
-username <- "username" #TRTH user name, usually your email address
-password <- "password" #TRTH password
-image <- TRUE
-default_type='future_series'
-default_type='guaranteed_spread'
-
-email_to <- 'someuser at somehost.com'
-email_from <- 'someuser at somehost.com'
-
-no.cores <- 1 # for foreach
+#
+# You should create a configuration file that includes the following
+#
+#instrument_file <- '/full/path/to/instruments.rda' #where your instrument metadata is stored
+#
+#archive_dir <- "/full/path/to/archives/" # where the split CSV, job reports, and gz files will be stored
+#path.output <- "/full/path/to/output/" # root dir where the .rda files for the xts will be placed
+#
+#job.name <- "mybackfill" # the Reuters TRTH job name
+#
+#username <- "username" #TRTH user name, usually your email address
+#password <- "password" #TRTH password
+#image <- TRUE
+#default_type='future_series'
+#default_type='guaranteed_spread'
+#
+#email_to <- 'someuser at somehost.com'
+#email_from <- 'someuser at somehost.com'
+#
+#no.cores <- 1 # for foreach
 ##############################################################################
+config_file<-'/full/path/to/TRTH_config_file.R'
+source(config_file)
 
-
 Sys.umask("0002")
 
 options(width=200)
@@ -205,7 +209,7 @@
 }
 missing_i<-missing_i[-1]
 missing_i<-data.frame(symbol=missing_i,type=default_type)
-write.csv(missing_i,file=paste(archive_dir,'missing_instruments.csv',sep='')) 
+write.csv(missing_i,file=paste(archive_dir,'missing_instruments.CSV',sep='')) 
 
 ##If trying to fix a broken set:
 #files.csv<-'';for(dir in list.files(getwd(),pattern="20")) {files.csv<-c(files.csv,list.files(paste(getwd(),'/',dir,'/',sep=''),pattern=".csv"))}[-1]