Build a query for an XML
Examples
id <- sumario_nbo(format(as.Date("2017/10/02", "%Y/%m/%d"), "%Y%m%d"))
cve <- sumario_cve("2017", "237") # Same document but by the CVE
query_xml(id)
#> [1] "https://boe.es/diario_boe/xml.php?id=BOE-S-20171002"
query_xml(cve)
#> [1] "https://boe.es/diario_boe/xml.php?id=BOE-S-2017-237"