merged.

src/clj/auto_ap/yodlee/core.clj

@@ -163,6 +163,21 @@
           (recur (concat transactions transaction-batch) (+ batch-size skip))
           transactions)))))
 
+(defn count-specific-transactions [account]
+  (let [cob-session (login-cobrand)
+        user-session (login-user cob-session)]
+
+    (-> (str (:yodlee-base-url env) "/transactions/count?accountId=" account) 
+        (doto println)
+
+        (client/get {:headers (doto
+                                  (merge base-headers {"Authorization" (auth-header cob-session user-session)})
+                                println) 
+                     :as :json})
+        :body
+        :transaction
+        )))
+
 (defn get-access-token []
   (let [cob-session (login-cobrand)
         user-session (login-user cob-session)