19 lines
621 B
R
19 lines
621 B
R
# setwd("C:/Users/nwickelmaier/Nextcloud/Documents/MDS/2023ss/60100_master_thesis/data/metadata")
|
|
|
|
# https://ferien-api.de/#holidaysPerStateAndYear
|
|
# Data extracted (on Linux) via:
|
|
# curl https://ferien-api.de/api/v1/holidays/NI > schulferien_NI.json
|
|
|
|
library(jsonlite)
|
|
|
|
dat <- read_json("schulferien_NI.json", simplify = TRUE)
|
|
dat$slug <- NULL
|
|
dat$stateCode <- NULL
|
|
|
|
dat$name <- paste0(gsub("^(.*).niedersachsen.*", "\\1", dat$name),
|
|
gsub("^.*niedersachsen [0-9]{4}(.*)", "\\1",
|
|
dat$name))
|
|
|
|
write.table(dat, "schulferien_2019-2025_NI.csv", sep = ";", row.names = FALSE)
|
|
|