fix style

This commit is contained in:
Pablo Antonio Lillo Cea 2026-05-08 10:15:20 +02:00
parent b445c1033f
commit 4163b05e2d

View file

@ -34,7 +34,6 @@ GENDERS <- list("1", "2")
# Fetch municipality codes from table metadata # Fetch municipality codes from table metadata
meta <- fromJSON(content(GET(SCB_URL), "text", encoding = "UTF-8")) meta <- fromJSON(content(GET(SCB_URL), "text", encoding = "UTF-8"))
munis <- Filter(\(x) nchar(x) == 4, meta$variables$values[[1]]) munis <- Filter(\(x) nchar(x) == 4, meta$variables$values[[1]])
cat("Municipalities to fetch:", length(munis), "\n")
# Batch fetch: 50 municipalities per request # Batch fetch: 50 municipalities per request
fetch_batch <- function(muni_batch) { fetch_batch <- function(muni_batch) {