From 94b71782e3e0415c159acdb8f2884caa96c2e548 Mon Sep 17 00:00:00 2001
From: Niels van der Velden <n.s.j.vandervelden@gmail.com>
Date: Fri, 26 Apr 2024 12:44:47 -0300
Subject: [PATCH] Allow for .gb extension.

---
 R/read_genbank.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/read_genbank.R b/R/read_genbank.R
index 21dffb7..7a563dd 100644
--- a/R/read_genbank.R
+++ b/R/read_genbank.R
@@ -47,7 +47,7 @@ read_gbk <- function(path, sections = NULL, features = NULL, origin = TRUE) {
 
   if (dir.exists(path)) {
     # It's a directory
-    files <- list.files(path, pattern = "\\.gbk$", full.names = TRUE)
+    files <- list.files(path, pattern = "\\.gbk$|\\.gb$", full.names = TRUE)
 
     # Check if there are any .gbk files in the directory
     if (length(files) == 0) {