In giocomai/edjnetquotefinder: EDJNet's QuoteFinder

knitr::opts_chunk$set(
  collapse = TRUE,
  comment = "#>"
)

library(quotefinder)

Getting the data

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

Find the most popular entities

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:

https://data.jrc.ec.europa.eu/dataset/jrc-emm-jrc-names

giocomai/edjnetquotefinder documentation built on Feb. 11, 2022, 12:51 p.m.