allow for multiple whitespace

RMI-PACTA · Jan 13, 2024 · 8f027ed · 8f027ed
1 parent 16da604
commit 8f027ed
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/R/determine_headers.R b/R/determine_headers.R
@@ -59,9 +59,9 @@ determine_headers <- function(filepath) {
     num_of_cols <- length(headers)
 
     if (num_of_cols >= 3) {
-      isin_col <- grep(pattern = "^[[:space:]]?isin[[:space:]]?$", x = headers, ignore.case = TRUE, value = TRUE)
-      market_value_col <- grep(pattern = "^[[:space:]]?market[._ ]{0,1}value[[:space:]]?$", x = headers, ignore.case = TRUE, value = TRUE)
-      currency_col <- grep(pattern = "^[[:space:]]?currency[[:space:]]?$", x = headers, ignore.case = TRUE, value = TRUE)
+      isin_col <- grep(pattern = "^[[:space:]]*isin[[:space:]]*$", x = headers, ignore.case = TRUE, value = TRUE)
+      market_value_col <- grep(pattern = "^[[:space:]]*market[._ ]{0,1}value[[:space:]]*$", x = headers, ignore.case = TRUE, value = TRUE)
+      currency_col <- grep(pattern = "^[[:space:]]*currency[[:space:]]*$", x = headers, ignore.case = TRUE, value = TRUE)
 
       if (num_of_cols > 3) {
         investor_name_col <- grep(pattern = "investor", x = headers, ignore.case = TRUE, value = TRUE)