--- a/sequence_overview.r	Fri Jun 03 10:35:52 2016 -0400
+++ b/sequence_overview.r	Mon Jun 06 08:26:54 2016 -0400
@@ -66,7 +66,7 @@
 	
 	id = as.numeric(dat[i,"seq_conc"])
 	
-	functionality = paste(unique(allc[,"Functionality"], sep=","))
+	functionality = paste(unique(allc[,"Functionality"]), collapse=",")
 
 	if(nrow(ca1) > 0){
 		cat(tbl(ca1), file=paste("ca1_", id, ".html", sep=""))
@@ -106,8 +106,7 @@
 	
 	cm.html = make.link(id, "cm", nrow(cm))
 	
-	rw = c(as.character(dat[i,"seq_conc"]), as.character(functionality), ca1.html, ca2.html, cg1.html, cg2.html, cg3.html, cg4.html, cm.html)
-	#print(rw)
+	rw = c(as.character(dat[i,"seq_conc"]), functionality, ca1.html, ca2.html, cg1.html, cg2.html, cg3.html, cg4.html, cm.html)
 
 	cat(tr(rw), file=main.html, append=T)
 }
@@ -117,8 +116,6 @@
 
 #ACGT overview
 
-
-
 NToverview = merged
 NToverview$seq = paste(NToverview$CDR1.IMGT.seq, NToverview$FR2.IMGT.seq, NToverview$CDR2.IMGT.seq, NToverview$FR3.IMGT.seq, sep="_")