fix: restore correct speaker extraction Webex VTT

The implementation of the parsing of MS Teams VTT broke the Webex one
bakaburg1 · May 22, 2024 · d189980 · d189980
1 parent cfef0b3
commit d189980
Showing 1 changed file with 3 additions and 2 deletions.
diff --git a/R/data_management.R b/R/data_management.R
@@ -699,8 +699,9 @@ import_transcript_from_file <- function(
       # Normal VTT style
       if (stringr::str_detect(cur_speaker, "^\\d+ ")) {
         # the name is between double quotes
-        stringr::str_extract_all('(?<=").*(?=")') |>
-        unlist()
+        cur_speaker <- stringr::str_extract_all(
+          cur_speaker, '(?<=").*(?=")') |>
+          unlist()
       } else if (stringr::str_detect(lines[.x + 1], "^<v ")) {
         # MS Teams vtt style: <v speaker first name [second name]>
         cur_speaker <- stringr::str_extract_all(