diff options
Diffstat (limited to 'R/load_cf.R')
| -rw-r--r-- | R/load_cf.R | 16 |
1 files changed, 12 insertions, 4 deletions
diff --git a/R/load_cf.R b/R/load_cf.R index c97247cc..73601c7b 100644 --- a/R/load_cf.R +++ b/R/load_cf.R @@ -123,10 +123,18 @@ getdealcf <- function(dealnames, zipfiles, tradedate=Sys.Date()){ break
flag <- FALSE
}
- data <- data[-c(1,2),][,`:=`(Date=as.Date(Date, "%b %d, %Y"),
- Cashflow = sanitize.column(Cashflow),
- Principal = sanitize.column(Principal),
- Interest = sanitize.column(Interest))]
+ data <- tryCatch({
+ data[-c(1,2),][,`:=`(Date=as.Date(Date, "%b %d, %Y"),
+ Cashflow = sanitize.column(Cashflow),
+ Principal = sanitize.column(Principal),
+ Interest = sanitize.column(Interest))]
+ },warning=function(w){
+ message("handling warning: ", conditionMessage(w))
+ NULL})
+ if(is.null(data)){
+ break
+ flag <- FALSE
+ }
setkey(data, "Date")
r[i,] <- as.numeric(df[data, roll=TRUE][,list(sum(Cashflow*Discounts),
sum(Principal*Discounts),
|