Réparer CBC (encore)

clessn · Mar 28, 2023 · 81ed4a9 · 81ed4a9
1 parent 0d92641
commit 81ed4a9
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/pipelines/extractors/e_radar+.R b/pipelines/extractors/e_radar+.R
@@ -90,6 +90,13 @@ harvest_headline <- function(r, m) {
         rvest::html_nodes('a') %>%
         rvest::html_attr("href")
 
+    if(length(CBC_extracted_headline) == 0){
+      CBC_extracted_headline <<- r %>%
+        rvest::html_nodes(xpath = '//*[@class="primaryHeadline desktopHeadline"]') %>%
+        rvest::html_nodes('a') %>%
+        rvest::html_attr("href")
+    }
+
     if (grepl("^http.*", CBC_extracted_headline[[1]])) {
       url <- CBC_extracted_headline[[1]]
     } else {