diff options
Diffstat (limited to 'R/load_bloomberg_data.R')
| -rw-r--r-- | R/load_bloomberg_data.R | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/R/load_bloomberg_data.R b/R/load_bloomberg_data.R index 6b7e36f5..1b7d5eaa 100644 --- a/R/load_bloomberg_data.R +++ b/R/load_bloomberg_data.R @@ -16,6 +16,7 @@ fields.corp <- c("PX_LAST","LAST_UPDATE_DT","ISSUER","MATURITY","CPN","CPN_TYP", corpcusips <- scan(file = file.path(root.dir, "data", "bbgcusips.txt"), what="char")
+corpcusips <- unique(corpcusips)
secCorp <- paste(corpcusips, "Corp")
dataCorp <- bdp(bbgCon, secCorp, fields.corp)
corpcusips <- substr(rownames(dataCorp[which(!is.na(dataCorp$ISSUER)),]),1,9)
|