examples.clj

(ns examples
  (:require [scicloj.kindly.v4.kind :as kind]
            [tablecloth.api :as tc]
            [scicloj.kind-portal.v1.api :as kind-portal]))

#_(kind-portal/open-if-needed)

4

{:x (range 4)}

(kind/pprint
 {:x (range 99)})


(kind/vega-lite
 {:$schema "https://vega.github.io/schema/vega-lite/v5.json"
  :data {:values [{:a "A" :b 28}
                  {:a "B" :b 55}
                  {:a "C" :b 43}
                  {:a "D" :b 91}
                  {:a "E" :b 81}
                  {:a "F" :b 53}
                  {:a "G" :b 19}
                  {:a "H" :b 87}
                  {:a "I" :b 52}]}
  :description "A simple bar chart with embedded data."
  :encoding {:x {:axis {:labelAngle 0} :field "a" :type "nominal"}
             :y {:field "b" :type "quantitative"}}
  :mark "bar"})

(kind/hiccup [:h1 "a"])


(defonce image
  (->  "https://upload.wikimedia.org/wikipedia/commons/c/c0/Doorway_from_Notre-Dame_at_Reugny_MET_DP132214v2.jpg"
       (java.net.URL.)
       (javax.imageio.ImageIO/read)))

image

(kind/code
 "[{:a '(+ 2 1)}]")

(kind/md
 ["# abcd
efgh `ijkl`"
  "
* a
* b
* c"])

(tc/dataset
 {:x [1 2 3]
  :y [4 5 6]})

[(kind/hiccup [:h1 "a"])
 (tc/dataset
  {:x [1 2 3]
   :y [4 5 6]})]

(list
 (kind/hiccup [:h1 "a"])
 (tc/dataset
  {:x [1 2 3]
   :y [4 5 6]}))

#{(kind/hiccup [:h1 "a"])
  (tc/dataset
   {:x [1 2 3]
    :y [4 5 6]})}

{:x (kind/hiccup [:h1 "y"])
 (kind/hiccup [:h1 "y"]) :x}

(kind/table
 (tc/dataset {:x [1 2 3]
              :y ["A" "B" "C"]}
             {:dataset-name "my-dataset"}))