Description Usage Arguments Value Examples
View source: R/text_extraction.R
Extracts and formats the stenographic version of the press conferences for a given date, set of dates, URL, set of URLs, or for all the conferences available. The name of the parameter must be specified when calling this function.
1 |
dates |
A date value or vector in the format 'yyyy-mm-dd' (either of Date or character class), between 04/12/2018 and the present date, both inclusive. When the date is not found, or there is an inconsistency in that days' conference, it throws a warning. Must be set to NULL if urls, start or end arguments are specified. |
urls |
A string value or vector containing URLs pointing to conferences hosted in the website https://presidente.gob.mx/secciones/version-estenografica/. When the date is not found, or there is an inconsistency in that days' conference, it throws a warning. Must be set to NULL if dates, start or end arguments are specified. |
start |
A date value in the format 'yyyy-mm-dd' (either of Date or character class), between 04/12/2018 and the present date, both inclusive. The function will retrieve the conferences from that date, inclusive, until the end date, if specified, or until last available, otherwise. Must be set to NULL if dates or urls arguments are specified. |
end |
A date value in the format 'yyyy-mm-dd' (either of Date or character class), between 04/12/2018 and the present date, both inclusive. The function will retrieve the conferences until that date, inclusive, from the start date, if specified, or from '2020-12-04', otherwise. Must be set to NULL if dates or urls arguments are specified. |
A list containing dialog-formatted lists. Every nested list corresponds to one conference, and every element of it corresponds to an intervention in that conference (the name of the element corresponds to the one of the interlocutor).
1 2 3 4 5 6 7 8 9 10 11 | conferences <- text_extraction(dates = c('2020-10-17','2020-10-10'))
dates <- seq(lubridate::ymd('2020-10-01'),
lubridate::ymd('2020-10-16'),
by = 'day')
urls <- find_urls(dates)
conferences <- text_extraction(urls = urls)
conferences <- text_extraction(start = '2020-10-10')
conferences <- text_extraction(end = '2020-10-17')
conferences <- text_extraction(start = '2020-10-10',
end = '2020-10-17')
# conferences <- text_extraction()
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.