get_metsakartat.R

library(rvest)
library(stringr)
library(tidyverse)

base_url <- "http://www.metsakartat.fi/"

get_zip <- function(x) {
  message("Downloading ", x, "...")
  download.file(x, basename(x), "internal")
  return(invisible(TRUE))
}

# Parse the DOM
metsakartat <- xml2::read_html(base_url)

# Get al data-zip attribute values
data_zips <- metsakartat %>% 
  rvest::html_nodes("*") %>% 
  rvest::html_attr("data-zip") %>%
  na.omit() %>% 
  purrr::map(stringr::str_split, pattern = ", ") %>% 
  unlist()
  
purrr::map(data_zips, get_zip)