diff options
| -rw-r--r-- | R/load_bloomberg_data.R | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/R/load_bloomberg_data.R b/R/load_bloomberg_data.R index 1b7d5eaa..26fa09e6 100644 --- a/R/load_bloomberg_data.R +++ b/R/load_bloomberg_data.R @@ -23,7 +23,7 @@ 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 )
+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)
|