diff --git a/R/buildStatusDashboard.R b/R/buildStatusDashboard.R index 996d30b..263f923 100644 --- a/R/buildStatusDashboard.R +++ b/R/buildStatusDashboard.R @@ -71,6 +71,8 @@ buildStatusDashboard <- function( if (nrow(vocabularyTibble) != 0) { usagiTibble <- readUsagiFile(file.path(pathToVocabularyFolder, vocabularyTibble$path_to_usagi_file[1])) pathToNewsFile <- file.path(pathToVocabularyFolder, vocabularyTibble$path_to_news_file[1]) + newsFile <- readLines(pathToNewsFile) |> + paste0(collapse = "\n") nMapped <- usagiTibble |> dplyr::distinct(sourceCode, .keep_all = TRUE) |> dplyr::filter(mappingStatus == "APPROVED") |>