1 files changed, 11 insertions, 4 deletions
diff --git a/R/build_SC.R b/R/build_SC.R
index 157d5b49..631325aa 100644
--- a/R/build_SC.R
+++ b/R/build_SC.R
@@ -196,13 +196,20 @@ for(deal.name in dealnames){
 
 generate_portfolio_helper <- function(cusips){
     dealnames <- dealnamefromcusip(cusips)
+    uniqdealnames <- unique(dealnames)
     r <- c()
     s <- c()
+    for(dealname in uniqdealnames){
+        r <- c(r, paste(toupper(dealname), "COLLAT_INITIAL", sep=","))
+        r <- c(r, paste(toupper(dealname), "COLLAT_REINVEST", sep=","))
+        s <- c(s, rep(paste0(dealname, ".sss"), 2))
+    }
+
     for(i in 1:length(cusips)){
-        r <- c(r, paste(toupper(dealnames[i]), "COLLAT_INITIAL", sep=","),
-               paste(toupper(dealnames[i]), "COLLAT_REINVEST", sep=","))
         r <- c(r, cusips[i])
-        s <- c(s, rep(paste0(dealnames[i], ".sss"), 3))
+        s <- c(s, paste0(dealnames[i], ".sss"))
     }
-    return( list(r, s) )
+    result <- data.frame(r,s)
+    write.table(result, file="clipboard", sep="\t", quote=F,
+                row.names=F, col.names=F)
 }