get_holidays.R

library(httr)
library(dplyr)
library(magrittr)
library(purrr)


get_holidays <- function(country_code, year) {
  # Build URL
  url <- parse_url("http://date.nager.at")
  url$path <- paste0("api/v1/get/", country_code, "/", year)
  base_url <- build_url(url)
  
  # Get content from the site
  content_json <- content(GET(base_url))
  
  # Extract only relevant fields
  df <- map_df(content_json, extract, c("countryCode", "name", "date"))
  df
}

years <- c("2016", "2017", "2018", "2019")
map_df(years, function(x) get_holidays("AT", x))