Look up on the internet and get the content
Examples
id <- sumario_nbo(format(as.Date("2017/10/02", "%Y/%m/%d"), "%Y%m%d"))
url <- query_xml(id)
get_xml(url)
#> {xml_document}
#> <sumario>
#> [1] <meta>\n <pub>BOE</pub>\n <anno>2017</anno>\n <fecha>02/10/2017</fecha ...
#> [2] <diario nbo="237">\n <sumario_nbo id="BOE-S-2017-237">\n <urlPdf szBy ...