       (om/update! data [:selected :properties] (disj (:properties (:selected @data)) new-selected))
       (history/update-token-ids! history :properties (str/join "&" (:properties (:selected @data))))
       (om/update! data [:sensors :data] (remove #(= (:entity-id %) new-selected) (:data (:sensors @data))))))
-  (update-measurements data {:selection-key :properties :checked nil}))
+  (update-measurements data {:selection-key :properties :checked nil :new-selected new-selected}))
 
 (defn multiple-properties-chart [data owner]
   (reify


(defmulti update-measurements (fn [data checked] (:selection-key checked)))

(defmethod update-measurements :properties [data checked]
  (om/update! data [:chart :measurements] nil))

(defmethod update-measurements :range [data checked]
  (let [chart (:chart @data)

          :headers {"Accept" "application/json"}
          :response-format :json
          :keywords? true})))

(defn get-measurements [data sensors start-date end-date]
  (when (and start-date end-date (not (empty? sensors)))
