Database Reference
In-Depth Information
5. We'll also deine some functions to help build the chart:
(defn add-label [chart axis label]
"This sets an axis' label if not nil."
(when-not (nil? label)
(.axisLabel (aget chart axis) label)))
(defn add-axes-labels [chart x-label y-label]
"Add axes' labels to the chart."
(doto chart
(add-label "xAxis" x-label)
(add-label "yAxis" y-label)))
(defn populate-node [selector chart groups transition
continuation]
"This builds the chart from the selector."
(-> (.select js/d3 selector)
(.datum groups)
(.transition)
(.duration (if transition 500 0))
(.call chart)
(.call continuation)))
6.
We'll also create some data structures to represent points and groups of points.
This is how NVD3 wants the input data represented:
(defn create-chart
[data-url selector make-chart json->groups &
{:keys [transition continuation x-label y-label]
:or {transition false, continuation (fn [_])
x-label nil, y-label nil}}]
"Create a chart with the data's URL, a selector, and
functions to create the chart and transform the data."
(.json
js/d3 data-url
(fn [error data]
(when data
(.addGraph
js/nv
(fn []
(let [chart (make-chart)]
(add-axes-labels chart x-label y-label)
(populate-node selector chart
(json->groups data)
transition continuation)
(.windowResize js/nv.utils
#(.update chart)))))))))
