is there a view-as-html function for an incanter dataset ?

[A]

I'm looking for a way to render a small Incanter dataset as html markup, Hiccup style, into something that looks like an HTML table. 
For example,  to view the Iris dataset as HTML something like this:

(use 'incanter.core)
(use 'incanter.datasets)

(view-as-html (get-dataset :iris))

Does something akin to a "view-as-html" function already exist?

Thanks,
Avram

[greg r]

You could use emacs org babel and export the document to HTML.  I haven't done this myself, but I think it would work.  It would be an indirect, but usable solution.

[A]

I finally took a stab at this. Still tinkering but looking for feedback...
;; i is incanter.core

(defn view-as-html [incanter-dataset]                                                                                                                                                         
  [:table {:border 0}                                                                                                                                                                         
   [:thead                                                                                                                                                                                    
    [:tr                                                                                                                                                                                      
     (for [field-name (i/col-names incanter-dataset)]                                                                                                                                         
       [:th field-name])]]                                                                                                                                                                    
   [:tbody                                                                                                                                                                                    
    (for [r (second (second incanter-dataset))]                                                                                                                                               
      [:tr  (for [k (i/col-names incanter-dataset) ]                                                                                                                                          
              [:td (str (k r))]                                                                                                                                                               
              )])]]) 

does this look reasonable?

Cheers,
-A