From 4415370ad5e1791238c50338bdb4bcb11fc7a96b Mon Sep 17 00:00:00 2001
From: Petar Glazar <petar.glazar@gmail.com>
Date: Tue, 4 Dec 2018 17:58:31 +0100
Subject: [PATCH] 18-column find_circ output supported

---
 CHANGELOG.md | 6 ++++++
 R/readData.R | 2 +-
 2 files changed, 7 insertions(+), 1 deletion(-)

diff --git a/CHANGELOG.md b/CHANGELOG.md
index a60c5a2..ee3940d 100644
--- a/CHANGELOG.md
+++ b/CHANGELOG.md
@@ -1,3 +1,9 @@
+ciRcus 0.1.7
+------------
+IMPROVEMENTS AND BUG FIXES
+
+* 18-column find_circ output (wherever it comes from) supported
+
 ciRcus 0.1.6
 ------------
 NEW FEATURES
diff --git a/R/readData.R b/R/readData.R
index cfa54b1..e29de86 100644
--- a/R/readData.R
+++ b/R/readData.R
@@ -30,7 +30,7 @@ readCircs <- function(file, subs = "all", qualfilter = TRUE, keepCols = 1:6,
   )
 
   # try to figure out what tool the data are coming from
-  if (ncol(DT) == 19 & names(DT)[1] == "# chrom") {
+  if (ncol(DT) %in% 18:19 & names(DT)[1] == "# chrom") {
     # read find_circ
     setnames(DT, "# chrom", "chrom")
     DT <- DT[!grepl("#", DT$chrom)]