From 1ca6652905f5f3bdaced42d18c905bd59b2541e5 Mon Sep 17 00:00:00 2001
From: Laurent Modolo <laurent@modolo.fr>
Date: Fri, 12 Oct 2018 09:16:25 +0200
Subject: [PATCH] intersect_SNP.R: fix getting sequences part

---
 src/intersect_SNP.R | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/src/intersect_SNP.R b/src/intersect_SNP.R
index 19999d1..50fa2e8 100755
--- a/src/intersect_SNP.R
+++ b/src/intersect_SNP.R
@@ -55,7 +55,8 @@ snp$seq_list <- snp %>%
     },
     fastafile = fastafile,
     POS = which(colnames(snp) %in% "POS"),
-    CHROM = which(colnames(snp) %in% "CHROM")
+    CHROM = which(colnames(snp) %in% "CHROM"),
+    seq_restric_size = seq_restric_size
   )
 
 snp %>%
-- 
GitLab