fix style
This commit is contained in:
parent
b445c1033f
commit
4163b05e2d
1 changed files with 0 additions and 1 deletions
|
|
@ -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) {
|
||||||
|
|
|
||||||
Loading…
Add table
Reference in a new issue