diff options
Diffstat (limited to 'R/load_loanprices_data.R')
| -rw-r--r-- | R/load_loanprices_data.R | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/R/load_loanprices_data.R b/R/load_loanprices_data.R index 99d4808d..d9caa2fc 100644 --- a/R/load_loanprices_data.R +++ b/R/load_loanprices_data.R @@ -23,11 +23,11 @@ corpcusips <- substr(rownames(dataCorp[which(!is.na(dataCorp$ISSUER)),]),1,9) dataCorp <- dataCorp[which(!is.na(dataCorp$ISSUER)),]
rownames(dataCorp) <- substr(rownames(dataCorp), 1, 9)
dataCorp <- data.frame(CUSIP=rownames(dataCorp), dataCorp, stringsAsFactors=FALSE)
+
fh <- file(file.path(root.dir, "data", "bloomberg",
paste0("bloomberg_datacorp_", Sys.Date(), ".csv")),"wb")
write.csv(dataCorp, file=fh, row.names=F)
close(fh)
+strdate <- format(Sys.Date(), "%Y-%m-%d")
+system(paste("python /home/share/CorpCDOs/code/python/load_bloomberg_data.py", strdate))
blpDisconnect(bbgCon)
-
-## save(corpcusips, mtgecusips, dataCorp, dataMtge, file="bloomberg_data.RData")
-save(corpcusips, dataCorp, file=file.path(root.dir, "data", "bloomberg_data.RData"))
|