allow column name for ab in as.sir()

2025-07-10 05:41:59 +02:00 · 2024-05-20 21:29:13 +02:00
parent fc269e667d
commit d214f74e25
10 changed files with 139 additions and 106 deletions
--- a/R/ab_from_text.R
+++ b/R/ab_from_text.R
@ -129,6 +129,10 @@ ab_from_text <- function(text,
      text_split_all <- text_split_all[nchar(text_split_all) >= 4 & grepl("[a-z]+", text_split_all)]
      result <- lapply(text_split_all, function(text_split) {
        progress$tick()
+        text_split <- text_split[text_split %like% "[A-Z]" & text_split %unlike% "[0-9]"]
+        if (length(text_split) == 0) {
+          return(as.ab(NA_character_))
+        }
        suppressWarnings(
          as.ab(text_split, ...)
        )