print-markdown

[gassechen]

Hi, I'm trying to generate html with spinneret
and with cl-markdown
the idea is to use (print-markdown df) and with cl-markdown print the html table. Could you help me?
Can you create a method (print-html-table df) ?

[gassechen]

(defdf df (make-df '(:a :b)            
         '(#(1 2 3) #(10 20 30))))

(defun print-html-table (df &key (stream *standard-output*) (row-numbers nil))
  "Print data frame DF as an HTML table with Spinneret, to STREAM.
   If ROW-NUMBERS is true, also include row numbers."
  (let* ((array (aops:as-array df))
         
         (*print-pprint-dispatch* (copy-pprint-dispatch))
         (*print-pretty* t))

    ;; For notebook printing, we only need four digits of accuracy
    (set-pprint-dispatch 'float (lambda (s f) (format s "~,4f" f)))

    ;; Print opening <table> tag
    (format stream "<table>~%")

    ;; Print header row
    (format stream "<tr>")
    (if row-numbers (format stream "<th>#</th>"))
    (map nil #'(lambda (x)
                 (format stream "<th>~A</th>" x))
         (keys df))
    (format stream "</tr>~%")

    ;; Print data rows
    (aops:each-index i
      (format stream "<tr>")
      (if row-numbers (format stream "<td>~A</td>" i))
      (aops:each-index j
        (format stream "<td>~A</td>" (aref array i j)))
      (format stream "</tr>~%"))

    ;; Print closing </table> tag
    (format stream "</table>~%")
    (values)))

<table>
<tr><th>A</th><th>B</th></tr>
<tr><td>1</td><td>10</td></tr>
<tr><td>2</td><td>20</td></tr>
<tr><td>3</td><td>30</td></tr>
</table>

It only works for me inside ls-user, I don't know how to use it from outside.

[gassechen]

(defun print-html-table (df &key (row-numbers nil))
  "Print data frame DF as an HTML table with Spinneret, to STREAM.
   If ROW-NUMBERS is true, also include row numbers."
  (spinneret:with-html 
    (let* ((array (aops:as-array df))
           ;;(*print-pprint-dispatch* (copy-pprint-dispatch))
           ;;(*print-pretty* t) 
	   )

      ;; For notebook printing, we only need four digits of accuracy
      (set-pprint-dispatch 'float (lambda (s f) (format s "~,4f" f)))

      ;; Print opening <table> tag
      (:table :id "table-data"

       ;; Print header row
       (:tr
        (when row-numbers (:th "#" ))
        (map nil #'(lambda (x)
                     (:th x ))
             (keys df)))

       ;; Print data rows
       (aops:each-index i
         (:tr
          (when row-numbers (:td i ))
          (aops:each-index j
            (:td (aref array i j) )))))

      ;; Print closing </table> tag
      )))

With spinneret
I would like to be able to extract the name of the data-frame to pass it as id in the html table

[snunez1]

If you want to use it in other packages, the symbol needs to be exported, or full qualified with the ::, as in df::print-html-table. Alternatively put the export statement just after the function definition.

[gassechen]

(defun print-html-table (df &key (row-numbers nil))
  "Print data frame DF as an HTML table with Spinneret, to STREAM.
   If ROW-NUMBERS is true, also include row numbers."
  (spinneret:with-html 
    (let* ((array (aops:as-array df)))

      ;; For notebook printing, we only need four digits of accuracy
      (set-pprint-dispatch 'float (lambda (s f) (format s "~,4f" f)))

      ;; Print opening <table> tag
      (:table :id "table-data"

       ;; Print header row
       (:tr
        (when row-numbers (:th "#" ))
        (map nil #'(lambda (x)
                     (:th x ))
             (lisp-stat:keys df)))  ??? here

       ;; Print data rows
       (aops:each-index i
         (:tr
          (when row-numbers (:td i ))
          (aops:each-index j
            (:td (aref array i j) )))))

      ;; Print closing </table> tag
      )))

[snunez1]

With spinneret I would like to be able to extract the name of the data-frame to pass it as id in the html table

(name <df>)

[gassechen]

(asdf:defsystem "myproject"
  :version "0.1"
  :author ""
  :license "WTFPL"
  :depends-on (:str
               :cl-slug
               :local-time
               :cl-ppcre
               :hunchentoot
               :easy-routes
               ;;:djula
               :log4cl
	       :alexandria
	       :yason
	       :dexador
	       :cl-csv
	       :cl-date-time-parser
	       :spinneret
	       :mito
	       :sxql
	       :cl-json
	       :lisp-stat 
	       :data-frame
	       :sqldf
	       )
  :components ((:module "src"
                :components
                ((:file "myproject")
		 (:file "parse-all-msg")
		 (:file "db")
		 (:file "msg-from-api")
		 (:file "test_json")
                 (:file "web"))))

  ;; To build a binary:
  :build-operation "program-op"
  :build-pathname "myproject"
  :entry-point "myproject::main"

  :description "A web template"
  ;; :long-description
  ;; #.(read-file-string
  ;;    (subpathname *load-pathname* "README.md"))
  :in-order-to ((test-op (test-op "myproject-test"))))

;; Smaller binary.
#+sb-core-compression
(defmethod asdf:perform ((o asdf:image-op) (c asdf:system))
  (uiop:dump-image (asdf:output-file o c) :executable t :compression t))

I have this asdf. I'm new to lisp and this topic brings me half lost

[snunez1]

What exactly are you wanting comments on? You might consider posting on the /r/Common_Lisp/ channel on Reddit, or possibly StackOverflow for the HTML questions. There's more people there using data-frames with HTML and building binaries than here. In fact I know there's one person working right now on displaying data-frames via datatables involving Hunchentoot for the data server

[snunez1]

Here's the repo for the datatable JavaScript viewer for a data frame: https://github.com/mikelevins/plotview

In particular you might find PR for the data server helpful, as well as the routes/table.lisp file.