Update split_var_call.R

pharmaverse · Jan 31, 2024 · 0482496 · 0482496
1 parent 1261bd7
commit 0482496
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/split_var_call.R b/R/split_var_call.R
@@ -30,7 +30,7 @@ single_str_spilt <- function(result, item, sep, max_length_out) {
 split_var <- function(string, max_length_out = 200L) {
   # Pattern spot
   pattern <- names(which.max(table(stringr::str_extract_all(string, "[:punct:]|[:blank:]")))) |>
-    (\(.) (ifelse(is.null(.), "", .))) ()
+    (\(.) (ifelse(is.null(.), "", .)))()
 
   # Split the input string into a vector
   split_vector <- unlist(stringr::str_split(string, pattern))