                "\"" "\n")
         ) "" organism-details))
     ) "" @results)
-))
+)))
 
 
 (defn orthologs []

(defn csv-body
  "returns results of the graph in csv string format for download"
  []
  (let [results (re-frame/subscribe [:aggregate-results])]
    (reduce (fn [outer-str [organism organism-details] organisms]
      (str outer-str
        (reduce (fn [inner-str [ortholog ortholog-details] organism-details]

        [:div
          [:header
            [:h2 "Orthologous Genes"]
            [exportcsv/download-button (csv-body)]
           ]
          [:table.aggregate
            [aggregate-headers]
