diff options
| -rw-r--r-- | R/intex_deal_functions.R | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/R/intex_deal_functions.R b/R/intex_deal_functions.R index 37f388f4..8c90313e 100644 --- a/R/intex_deal_functions.R +++ b/R/intex_deal_functions.R @@ -25,7 +25,11 @@ getdealdata <- function(dealname, workdate){ "first_pay_date , maturity, \"Principal Bal\" , pay_day from ",
"historical_clo_universe($1, $2)")
dealdata <- dbGetQuery(dbCon, sqlstring, params=list(dealname, workdate))
- dealdata$mv <- mv
+ if(!length(mv)){
+ dealdata$mv <- NA
+ }else{
+ dealdata$mv <- mv
+ }
dealdata$maturity <- as.Date(dealdata$maturity)
dealdata$first_pay_date <- as.Date(dealdata$first_pay_date)
dealdata$reinv_end_date <- as.Date(dealdata$reinv_end_date)
|