diff options
Diffstat (limited to 'R/load_cf.R')
| -rw-r--r-- | R/load_cf.R | 9 |
1 files changed, 2 insertions, 7 deletions
diff --git a/R/load_cf.R b/R/load_cf.R index 5cb404ea..7ae5846c 100644 --- a/R/load_cf.R +++ b/R/load_cf.R @@ -215,13 +215,8 @@ getdealcf <- function(dealnames, workdate=Sys.Date()){ flag <- TRUE
break
}
- if(nrow(data)==1){
- data <- data.table(Date= as.Date(data[,1], "%b %d, %Y"),
- t(apply(data[,2:4], 2, function(x)sanitize.column(x))), key="Date")
- }else{
- data <- data.table(Date= as.Date(data[,1], "%b %d, %Y"),
- apply(data[,2:4], 2, function(x)sanitize.column(x)), key="Date")
- }
+ data <- data.table(Date= as.Date(data[,1], "%b %d, %Y"),
+ data.frame(lapply(data[,2:4], function(x)sanitize.column(x))), key="Date")
setnames(data, c("Date", fields))
r[i,] <- as.numeric(data[df][,list(sum(Cashflow*Discounts),
sum(Principal*Discounts),
|