topics-low-rank.clj

(require '[clojure.string :refer [join]])
(def d (js->clj js/data :keywordize-keys true))

(print
  (join "\n"
      (->> (:topics d)
           (remove #(get-in % [:factors :bad]))
           
           (remove #(<= (:count %) (+ (get-in % [:factors :automated] 0)
                                     (get-in % [:factors :autoEmail] 0)
                                     (get-in % [:factors :reFilt] 0))))
           (remove #(not= 0 (get-in % [:factors :childCount])))
           (filter #(= (:count %) 1))
           (map #(vector (:topicId %) (get-in % [:artifactsRef 0 :topicText]) (:count %)))
           (map #(join "," %)))))