diff options
| -rw-r--r-- | R/build_portfolios.R | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/R/build_portfolios.R b/R/build_portfolios.R index 3c9b644a..e80509a4 100644 --- a/R/build_portfolios.R +++ b/R/build_portfolios.R @@ -17,7 +17,7 @@ if(length(args) >=2){ dealnames <- dealnamefromcusip(data$V1)
uniqdealnames <- unique(dealnames)
uniqdealnames <- uniqdealnames[!is.na(uniqdealnames)]
- reinvflags <- data$V2[match(uniqdealnames, dealnames)]
+ disablereinvflags <- data$V2[match(uniqdealnames, dealnames)]
dealnames <- uniqdealnames
unlink(file.path(root.dir, "scripts", "cusips_to_price.txt"))
}
@@ -74,8 +74,8 @@ currdealnames <- dbGetQuery(dbCon, "select updatedate, dealname from latest_deal ## build portfolio data
i <- 1
for(deal.name in dealnames){
- if(exists("reinvflags")){
- global.params$reinvflag <- !reinvflags[i]
+ if(exists("disablereinvflags")){
+ global.params$reinvflag <- !disablereinvflags[i]
}
i <- i+1
if(is.na(deal.name)){
@@ -132,4 +132,5 @@ for(deal.name in dealnames){ }
}
-write.table(data.frame(dealnames, as.integer(!reinvflags)), file = file.path(root.dir, "scripts", "scenarios.txt"), row.names = F, col.names = F)
+write.table(data.frame(dealnames, as.integer(!disablereinvflags)),
+ file = file.path(root.dir, "scripts", "scenarios.txt"), row.names = F, col.names = F)
|