Allow for .gb extension.

nvelden · Apr 26, 2024 · 94b7178 · 94b7178
1 parent 04491ed
commit 94b7178
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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) {