             (-> cols first :display_name upper-case)]
           [:th {:style (str bar-td-style bar-th-style "min-width: 60px;")}
             (-> cols second :display_name upper-case)]
-          [:th {:style (str bar-td-style bar-th-style "width: 99%;")}]]]
+          (if bar-column [:th {:style (str bar-td-style bar-th-style "width: 99%;")}])]]
       [:tbody
-        (map-indexed #(render-bar-chart-row %1 %2 max-value) rows)]]))
+        (map-indexed #(render-table-row %1 %2 bar-column max-value) rows)]]))
+
+(defn render-bar-chart
+  [data]
+  [:div {:style ""}
+    (render-table data second)])
 
 (defn render-scalar
   [data]
-  [:div {:style scalar-style} (-> data :rows first first format-number)])
+  [:div {:style scalar-style}
+    (-> data :rows first first format-cell)])
 
 (def ^:private sparkline-dot-radius 6)
 (def ^:private sparkline-thickness 4)

            [:div {:style "height: 15px; margin-left: 10px; margin-right: 10px;"}
              [:div {:style "float: left;"} (format-timestamp xmin)]
              [:div {:style "float: right;"} (format-timestamp xmax)]]
          ]]]))

(defn render-pulse-card
  [card data include-title]

      (t/within? (t/interval (t/minus today (t/days 1)) today) date) "Yesterday"
      :else (f/unparse (f/formatter "MMM d, YYYY") date))))

(defn- format-cell
  [value]
  (cond
    (instance? java.util.Date value) (format-timestamp (.getTime value))
    (number? value) (format-number value)
    :else (str value)))

(defn render-table-row
  [index row bar-column max-value]
  [:tr {:style (if (odd? index) "color: rgb(189,193,191);" "color: rgb(124,131,129);")}
    [:td {:style bar-td-style} (format-cell (first row))]
    [:td {:style (str bar-td-style "font-weight: 700;")} (format-cell (second row))]
    (if bar-column [:td {:style (str bar-td-style "width: 99%;")}
      [:div {:style (str "background-color: rgb(135, 93, 175); height: 20px; width: " (float (* 100 (/ (bar-column row) max-value))) "%")} "&#160;"]])])

(defn render-table
  [{:keys [cols rows]} bar-column]
  (let [max-value (if bar-column (apply max (map bar-column rows)))]
    [:table {:style "border-collapse: collapse;"}
      [:thead
        [:tr
