 
 (defn get-paired-fqs [eid repname repk]
   (->> (get-replicate-fqzs eid repname repk)
-       (group-by (fn[fq] (if (re-find #"R2" fq) :R2 :R1)))
+       (group-by (fn[fq] (if (re-find #"-R2\." fq) :R2 :R1)))
        (map (fn[[k v]] [k (cljstr/join "," v)]))
        (into {})))
 

                       base exp-illumina-xref illumina-sample-xref)
        ifastqs (->> (fs/directory-files (get-exp-info eid :fastq) "fastq.gz")
                     (group-by #(->> % fs/basename
                                     (re-find #"R[1-2]") keyword)))
        sample-illumina-xref (clojure.set/map-invert illumina-sample-xref)
        sample-ifq-xref (reduce (fn[M fq]
                                  (let [samp (->> fq fs/basename

        nextseq-base (pams/get-params :nextseq-base)
        expdir (fs/join nextseq-base eid)
        sample-sheet (fs/join expdir "SampleSheet.csv")
        exp-sample-sheet (fs/join expdir "Exp-SampleSheet.csv")
        cfgfile (fs/join expdir "cmd.config")]
    (swap! exp-info
           (fn[m]
             (assoc m eid
                    (init-exp-data base sample-sheet exp-sample-sheet cfgfile))))))

(defn del-exp [eid]
  (swap! exp-info (fn[m] (dissoc m eid)))
