(defn some-data1 [db])
(defn some-data2 [db])
(defn some-flag [db])

(defn some-complex [[data1 data2 flag]]
  (if flag data1 data2))

(defn some-complex-transformed [data]
  (-> transform data))

(reg-sub
  ::some-data-1
  some-data1)

(reg-sub
  ::some-data-2
  some-data-2)

(reg-sub
  ::some-flag
  some-flag)

(reg-sub
  ::some-complex-sub
  :<- [::some-data-1]
  :<- [::some-data-2]
  :<- [::some-flag]
  some-complex)

(reg-sub
  ::some-complex-sub-transformed
  :<- [::some-complex-sub]
  some-complex-transformed)

(reg-event-fx
  ::event
  (fn [{db :db}]
    (let [complex-data-transformed (->> db
                                        ((juxt some-data1 some-data2 flag))
                                        some-complex
                                        some-complex-transformed)])))