diff options
| -rw-r--r-- | R/new_index_series.R | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/R/new_index_series.R b/R/new_index_series.R index c390e4f0..4c4c4163 100644 --- a/R/new_index_series.R +++ b/R/new_index_series.R @@ -62,7 +62,7 @@ newcurves <- function(indextype, series, basketid){ } prep.data$cds_curve <- aggregate(Ticker~ticker, data=cdscurves, FUN=sqlArray)$Ticker - levels(prep.data$doc_clause) <- gsub("-", " ", levels(prep.data$doc_clause)) + df$doc_clause <- gsub("-", " ", df$doc_clause) sqlstr <- paste0("INSERT INTO bbg_issuers", "(name, company_id, ticker, currency, seniority, doc_clause, cds_curve)", "VALUES($1, $2, $3, $4, $5, $6, $7)") @@ -93,6 +93,7 @@ newcurves <- function(indextype, series, basketid){ ## mappings <- data.frame(company_id=df$company_id, ## markit_ticker=c("FIATCHR","ZIGGBON"), ## seniority="SNRFOR",coupon=500) + markit.mappings <- function(df){ sqlstr <- "INSERT INTO bbg_markit_mapping VALUES('infinity', $1, $2, $3, $4)" with(df, |