diff options
| -rw-r--r-- | R/build_portfolios.R | 4 | ||||
| -rw-r--r-- | R/build_scenarios.R | 2 | ||||
| -rw-r--r-- | R/intex_deal_functions.R | 20 | ||||
| -rw-r--r-- | R/yieldcurve.R | 2 |
4 files changed, 15 insertions, 13 deletions
diff --git a/R/build_portfolios.R b/R/build_portfolios.R index 7d3312fa..f1299a7f 100644 --- a/R/build_portfolios.R +++ b/R/build_portfolios.R @@ -1,8 +1,8 @@ library(RQuantLib) library(yaml) -library(dplyr) +library(dplyr, quiet = TRUE, warn.conflict = F) -args <- commandArgs(trailingOnly=TRUE) +args <- commandArgs(trailingOnly = TRUE) stopifnot((root.dir <- Sys.getenv("BASE_DIR")) != "") stopifnot((code.dir <- Sys.getenv("CODE_DIR")) != "") diff --git a/R/build_scenarios.R b/R/build_scenarios.R index fd404f20..1d7e7caf 100644 --- a/R/build_scenarios.R +++ b/R/build_scenarios.R @@ -1,4 +1,4 @@ -library(doParallel) +library(doParallel, quiet = T, warn.conflicts = F) library(yaml) hostname <- system("hostname", intern=TRUE) diff --git a/R/intex_deal_functions.R b/R/intex_deal_functions.R index d5f16af0..a128c960 100644 --- a/R/intex_deal_functions.R +++ b/R/intex_deal_functions.R @@ -1,8 +1,8 @@ library(RQuantLib) -library(data.table) -library(doParallel) -library(lossdistrib) -library(dplyr) +library(data.table, quiet = TRUE, warn.conflicts = FALSE) +library(doParallel, quiet = T, warn.conflicts = F) +library(lossdistrib, quiet = T, warn.conflicts = F) +library(dplyr, quiet = TRUE, warn.conflicts = FALSE) hostname <- system("hostname", intern=TRUE) if(hostname=="debian"){ @@ -30,12 +30,14 @@ getdealdata <- function(dealname, workdate){ getcollateral <- function(dealname, date){ if(missing(date)){ - collatdata <- dbGetQuery(etdb, "select * from et_aggdealinfo($1)", - params=list(dealname)) + collatdata <- suppressWarnings( + dbGetQuery(etdb, "select * from et_aggdealinfo($1)", + params=list(dealname))) }else{ - collatdata <- dbGetQuery(etdb, - "select * from et_aggdealinfo_historical($1, $2)", - params=list(dealname, date)) + collatdata <- suppressWarnings( + dbGetQuery(etdb, + "select * from et_aggdealinfo_historical($1, $2)", + params=list(dealname, date))) } return(collatdata) } diff --git a/R/yieldcurve.R b/R/yieldcurve.R index 8c14bc0f..e53e3f5a 100644 --- a/R/yieldcurve.R +++ b/R/yieldcurve.R @@ -1,5 +1,5 @@ require(RQuantLib) -library(dplyr) +library(dplyr, quiet = T, warn.conflicts = F) source("db.R") getMarkitIRData <- function(date=Sys.Date(), currency=c("USD", "EUR")) { |