Periode klopt niet

[Hanna-GGDHM]

Hi Aart, script is helaas stuk! Het zit hem in het stukje (nieuwe) code bovenin:
periode = str_match(xml_text(el), "(\d{4}).*(\d{1,2})")
return(data.frame(jaar=as.numeric(periode[,2]), week=as.numeric(periode[,3]), link=xml_attr(el, "href")))

want nu de weken weer dubbele codes hebben (week 10, 11, 12 etc) leest hij hem niet goed.
In mijn script heb ik het terugveranderd naar: periode = str_match(xml_text(el), "(\d{4}).*wk(\d+)")

[Hanna-GGDHM]

Oh ik krijg nog een error bij het uitlezen van week 10:
Verwerking van week 2025-10...
Error in str_locate_all(data[i], "\n")[[1]][3, 1] :
subscript out of bounds

Edit: PDF van week 10 ziet er ook behoorlijk incompleet uit, die sla ik wel over :) Vast een foutje!

[aartdijkstra]

Ik had 'm inderdaad ook gespot. Ik heb de periode zelf als volgt aangepast:

periode = str_match(xml_text(el), "(\\d{4}).*?(\\d+)")

En de for-loop aangepast om lege bestanden over te slaan:

if (length(data) < 3) {
    printf("Bestand bestaat niet uit meerdere pagina's; waarschijnlijk verkeerd gepubliceerd. Overslaan...")
    next
  }