library(xml2)
library(rvest)
library(purrr)
library(stringr)

outFolder <- "data/"

url <- "http://www.football-data.co.uk"

page <- "/germanym.php"

doc <- read_html(paste0(url,page))

links <- html_attr(html_nodes(doc, "a"), "href")

csv_links <- links[grepl(".*\\.csv$", links)]

invisible(csv_links %>% map(~download.file(paste0(url,"/",.), paste0(outFolder,str_replace(str_replace(., "mmz4281\\/", ""),"/", "_")))))