From f791a606765f403901ceeb550dddcfd8b02e5f97 Mon Sep 17 00:00:00 2001
From: Lucky <66523959+l-ucky@users.noreply.github.com>
Date: Wed, 30 Aug 2023 14:19:09 -0300
Subject: [PATCH] Fixed RegEx (a-zA-z) -> (a-zA-Z)

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

diff --git a/scripts/Xpbtid.R b/scripts/Xpbtid.R
index 89dbe6e..2146077 100644
--- a/scripts/Xpbtid.R
+++ b/scripts/Xpbtid.R
@@ -105,7 +105,7 @@ threads_col_all <-data.frame(txt = c(t(threads_col)), stringsAsFactors=FALSE)
 # Also filters everything except: example -> "id_A1b2c45d"
 tidy_pol_IDs <- threads_col_all %>% 
   unnest_tokens(word, txt, format = "text") %>% 
-  filter(str_detect(word, "(id_[a-zA-z0-9]{8})"))
+  filter(str_detect(word, "(id_[a-zA-Z0-9]{8})"))
 
 
 # === Import CSV as tidy_pol_IDs ===