give correct return value for no-op in extract_region

brendanf · Nov 19, 2019 · 3e56b90 · 3e56b90
1 parent 0e4891c
commit 3e56b90
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Package: tzara
 Type: Package
 Title: Cluster long amplicons using dada2 denoising on variable regions
-Version: 0.0.7.5
+Version: 0.0.7.6
 Authors@R: person(given = "Brendan", family = "Furneaux",
                   email = "[email protected]",
                   role = c("aut", "cre"))

diff --git a/R/tzara.R b/R/tzara.R
@@ -658,8 +658,8 @@ extract_region.ShortRead <- function(seq, positions, region, region2 = region,
          } else {
             ShortRead::writeFasta(seq, outfile, mode = "a")
          }
-         return(seq)
       }
+      return(seq)
    }
 
    p <- positions %>%