Merge pull request #191 from nf-osi/syn_id_regex

minor fix for syn ID detection
nf-osi · Sep 24, 2024 · b7687f2 · b7687f2
2 parents ecb884f + 8485592
commit b7687f2
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/R/basic_utils.R b/R/basic_utils.R
@@ -53,7 +53,7 @@ dt_read <- function(file) {
 bare_syn_id <- function(uri) {
   not_na <- which(!is.na(uri))
   x <- uri[not_na]
-  syn <- regmatches(x, regexpr("syn[0-9]{8,12}", x))
+  syn <- regmatches(x, regexpr("syn[0-9]{7,12}", x))
   uri[not_na] <- syn
   return(uri)
 }
@@ -64,7 +64,7 @@ bare_syn_id <- function(uri) {
 #' @param id Id string.
 #' @keywords internal
 is_valid_syn_id <- function(id) {
-  result <- grepl("^syn[0-9]{8,12}$", id)
+  result <- grepl("^syn[0-9]{7,12}$", id)
   result
 }