diff options
Diffstat (limited to 'R')
| -rw-r--r-- | R/intex_deal_functions.R | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/R/intex_deal_functions.R b/R/intex_deal_functions.R index 1b39834c..f984b494 100644 --- a/R/intex_deal_functions.R +++ b/R/intex_deal_functions.R @@ -339,9 +339,8 @@ severityfromscenarios <- function(scenariosd, scenariosr){ get.reinvassets <- function(dealname, tradedate){
r <- list()
- sqlstr <- sprintf("select * from et_historicaldealinfo('%s', '%s') where ReinvFlag Is true",
- dealname, tradedate)
- data <- dbGetQuery(dbCon, sqlstr)
+ sqlstr <- "select * from et_historicaldealinfo($1, $2) where ReinvFlag Is true"
+ data <- dbGetQuery(dbCon, sqlstr, params=list(dealname, tradedate))
if(nrow(data)>0){
for(i in 1:nrow(data)){
r[[data$issuername[i]]] <- list(coupontype=data$fixedorfloat[i], liborfloor=data$liborfloor[i])
|