-
Notifications
You must be signed in to change notification settings - Fork 4.9k
/
ui_logic.clj
108 lines (91 loc) · 4.31 KB
/
ui_logic.clj
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
(ns metabase.util.ui-logic
"This namespace has clojure implementations of logic currently found in the UI, but is needed for the
backend. Idealling code here would be refactored such that the logic for this isn't needed in two places")
(defn- dimension-column?
"A dimension column is any non-aggregation column"
[col]
(not= :aggregation (:source col)))
(defn- summable-column?
"A summable column is any numeric column that isn't a special type like an FK or PK. It also excludes unix
timestamps that are numbers, but with a special type of DateTime"
[{:keys [base_type special_type]}]
(and (or (isa? base_type :type/Number)
(isa? special_type :type/Number))
(not (isa? special_type :type/Special))
(not (isa? special_type :type/DateTime))))
(defn- metric-column?
"A metric column is any non-breakout column that is summable (numeric that isn't a special type like an FK/PK/Unix
timestamp)"
[col]
(and (not= :breakout (:source col))
(summable-column? col)))
(defn- default-goal-column-index
"For graphs with goals, this function returns the index of the default column that should be used to compare against
the goal. This follows the frontend code getDefaultLineAreaBarColumns closely with a slight change (detailed in the
code)"
[{graph-type :display :as card} {[col-1 col-2 col-3 :as all-cols] :cols :as result}]
(let [cols-count (count all-cols)]
(cond
;; Progress goals return a single row and column, compare that
(= :progress graph-type)
0
;; Called DIMENSION_DIMENSION_METRIC in the UI, grab the metric third column for comparison
(and (= cols-count 3)
(dimension-column? col-1)
(dimension-column? col-2)
(metric-column? col-3))
2
;; Called DIMENSION_METRIC in the UI, use the metric column for comparison
(and (= cols-count 2)
(dimension-column? col-1)
(metric-column? col-2))
1
;; Called DIMENSION_METRIC_METRIC in the UI, use the metric column for comparison. The UI returns all of the
;; metric columns here, but that causes an issue around which column the user intended to compare to the
;; goal. The below code always takes the first metric column, this might diverge from the UI
(and (>= cols-count 3)
(dimension-column? col-1)
(every? metric-column? (rest all-cols)))
1
;; If none of the above is true, return nil as we don't know what to compare the goal to
:else nil)))
(defn- column-name->index
"The results seq is seq of vectors, this function returns the index in that vector of the given `COLUMN-NAME`"
[^String column-name {:keys [cols] :as result}]
(first (remove nil? (map-indexed (fn [idx column]
(when (.equalsIgnoreCase column-name (:name column))
idx))
cols))))
(defn- graph-column-index [viz-kwd card results]
(when-let [metrics-col-index (some-> card
(get-in [:visualization_settings viz-kwd])
first
(column-name->index results))]
(fn [row]
(nth row metrics-col-index))))
(defn y-axis-rowfn
"This is used as the Y-axis column in the UI"
[card results]
(graph-column-index :graph.metrics card results))
(defn x-axis-rowfn
"This is used as the X-axis column in the UI"
[card results]
(graph-column-index :graph.dimensions card results))
(defn make-goal-comparison-rowfn
"For a given resultset, return the index of the column that should be used for the goal comparison. This can come
from the visualization settings if the column is specified, or from our default column logic"
[card result]
(if-let [user-specified-rowfn (y-axis-rowfn card result)]
user-specified-rowfn
(when-let [default-col-index (default-goal-column-index card result)]
(fn [row]
(nth row default-col-index)))))
(defn find-goal-value
"The goal value can come from a progress goal or a graph goal_value depending on it's type"
[result]
(case (get-in result [:card :display])
(:area :bar :line)
(get-in result [:card :visualization_settings :graph.goal_value])
:progress
(get-in result [:card :visualization_settings :progress.goal])
nil))