From 41b823add34d18f0feeaed54d45a00a601a9b8e0 Mon Sep 17 00:00:00 2001 From: Angelo D'Ambrosio Date: Fri, 8 Mar 2024 15:51:17 +0100 Subject: [PATCH] fix: manage transcription files with no speaker info --- R/data_management.R | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) diff --git a/R/data_management.R b/R/data_management.R index bd4d34c..f566598 100644 --- a/R/data_management.R +++ b/R/data_management.R @@ -285,11 +285,12 @@ extract_text_from_transcript <- function( # Ignore the `import_diarization` parameter if the transcript does not contain # speaker information - if (all(is.na(transcript_data$speaker)) || + if (!"speaker" %in% names(transcript_data) || + all(is.na(transcript_data$speaker)) || n_distinct(transcript_data$speaker, na.rm = T) == 1) { import_diarization <- FALSE - transcript_data$speaker <- "None" + transcript_data$speaker <- "Unknown" } transcript <- transcript_data %>%