Working with EMM newsbrief data

library(quotefinder)

Getting the data

qf_get_emm_newsbrief(category_id = "ECnews",
                     keep_xml = FALSE)

entities <- qf_emm_extract_entities(language = NULL, days = 7)

readr::write_rds(x = entities, path = fs::path("qf_data", "emm_entities.rds"))

entities %>% 
  dplyr::group_by(id, name, language) %>% 
  dplyr::count(sort = TRUE)

For reference, see also: