diff options
| -rw-r--r-- | R/build_portfolios.R | 18 |
1 files changed, 10 insertions, 8 deletions
diff --git a/R/build_portfolios.R b/R/build_portfolios.R index a4465521..0c554c42 100644 --- a/R/build_portfolios.R +++ b/R/build_portfolios.R @@ -83,13 +83,13 @@ for(i in seq_along(dealnames)){ "dealspread = $2, cdopercentage = $3, stalepercentage= $4, ",
"marketvalue = $5",
"WHERE dealname= $6 and updatedate = $7")
- r <- dbSendQuery(sqlstring,params = list(deal.spread5y,
- deal.spreadatmaturity,
- deal.portfolio$cdopercentage,
- deal.portfolio$stale,
- mv,
- deal.name,
- workdate))
+ r <- dbSendQuery(dbCon, sqlstring,params = list(deal.spread5y,
+ deal.spreadatmaturity,
+ deal.portfolio$cdopercentage,
+ deal.portfolio$stale,
+ mv,
+ deal.name,
+ workdate))
if(dbHasCompleted(r)){
dbClearResult(r)
}
@@ -101,7 +101,9 @@ for(i in seq_along(dealnames)){ r <- dbSendQuery(dbCon, sqlstring, params = list(deal.name,
deal.portfolio$cdopercentage,
deal.portfolio$stale,
- deal.spread5y,mv,workdate,deal.spreadatmaturity))
+ deal.spread5y, mv,
+ workdate,
+ deal.spreadatmaturity))
if(dbHasCompleted(r)){
dbClearResult(r)
}
|